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VELKOMMEN 

Velkommen til det forste nummer af INPUT. Skandina¬ 
viens forste programblad udelukkende rettet mod Am- 
strad computerne og deres brugere. 

INPUT er en aflægger af AMSTRAD BLADET, der er 
nordens storste og eneste Amstrad brugerblad, med et 
oplag på over 10.000 stk. og med en gennemsnitlig læser 
tilgang på over 700 pr. udgivelse. Der er fart på i AM¬ 
STRAD verdenen. 
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Hvor AMSTAD BLADET primært koncentrerer sig om 
at bringe den brede mængde af information: Tips, vej¬ 
ledning, hard- og software tests, reportager etc. etc. , vil 
vi her i INPUT prove at give lidt ophidsende adspredelse 
for gor det selv folket. 

Hvad kommer der så til at ske i bladet ? 

Slet ikke så lidt endda. Forst og fremmest vil bladet være 
proppet med listninger af alle typer. Disse listninger vil 
komme fra danske programmorer, (se dette nummer), 
men senere hen vil der også dukke listninger op fra både 
Sverige. Norge, England og ikke mindst Tyskland. Vedr. 
listninger fra England og Tyskland, skal vi lige slå fast at 
de vil blive trykt i oversat form. !! Udover listningerne 
vil der være konkurrencer, sjove eller specielle nyheder 
fra Amstrads software univers og meget andet. Det er 
selvfølgeligt meningen at listningerne skal give jer - læ¬ 
serne - noget, både erfarings og programmæssigt, skulle 
der imidlertid være svage sjæle imellem tilbyder vi sidst i 
bladet, under rubrikken læser service, listningerne på 
bånd eller diskette alt afhængig af hvilken computer type 
du har. 

Hvornår og hvor tit udkommer INPUT ? 

Bladet vil udkomme lejlighedsvis, når vi har tilstrække¬ 
ligt med listninger af god kvalitet. Vi vil dog tilstræbe at 
udkomme hvert kvartal, tiden vil vise om vi kan opfylde 
vores mål. 

På grund af udgivelses frekvensen vil det IKKE være 
muligt at abonnere på bladet !. - Under læserservice vil 
der istedet være mulighed for at få AMSTRAD 
BLADET og AMSTRAD USER tilsendt på abonne¬ 
mentsbasis. 

Kan alle få deres programmer i INPUT ? 

Nej !! - Vi onsker på grund af de erfaringer vi har gjort 
os. at bladet og især listinger skal have et vist niveau. 

Det skal dog ikke forhindre DIG i at indsende program¬ 
mer til os. Mange gange er det småfejl eller måske de be- 
romte tanketorsk der er afgorcndé for om et program bli¬ 
ver bragt. F.n anden ting der er fagtig når man sender 
ind. er at sorge for ordentlig dokumentation til sit pro¬ 
gram. det betyder meget for tilgængeligheden for andre 
læsere. 

Hvad får jeg ud af at indsende mit superprogram ? 

Alle der indsender et eller flere programmer til INPUT, 
får mulighed for at deltage i konkurrencen om årets pro¬ 
gram. Denne konkurrence lober både i AMSTRAD 
BLADET og i INPUT. 

Præmierne er i tidens lob blevet bedre og bedre, se bare: 

1. præmie: 1 stk. Samleco DX85 NLO printer 

4x2. præmie: 5 x 1 stk. Amsoft programpakker 

Hisoft pascal 

Devpac 

Micropen 

microspread 

etc. 

20 x 3. præmie: 1 stk. joyeards 

Det kan man da kalde en udfordring. Fat tastaturet og 
lad omverdenen se hvad du kan få ud af en computer. 

Sidst men ikke mindst skal vi gore opmærksom på vor 
telefonservice. Hver mandag mellem 14:00 og 16:00 sid¬ 
der programgeniet Thomas ved telefonen klar til at 
hjælpe dig med de spørgsmål du hen af vejen kommer ud 
for. hvor hjælp eller vejledning kan være tiltrængt. 






Guffer 


- en ny slags konkurrence. 


Vi har efterhånden indset, hvor unfair vores konkurrence 
er overfor de Amstrad-brugere, hvis evner går i lidt andre 
retninger end programmering (f.eks 1. million points på 
Roland in Space). Derfor har vi lavet et lille ostespil med 
indbygget hovedbrud/joystickbrud. Reglerne er såre 
simple: Find den hurtigste rute gennem labyrinten, ned- 
tegn den på papir, stop den i en kuvert mærket Guffer og 
send den til Amstrad Bladet. Godvad Bakke 4, 8600 Sil¬ 
keborg. Du kan jo eventuelt også skrive den personlige 
rekord på banen. Vi vil kåre vinderen i næste nummer 
udfra den hurtigste rute, og en endnu ikke fastsat præ¬ 
mie vil så tilfalde vinderen. 

10 KEY DEF 72, 1,240 = KEY DEF 73,1,241 
20 KEY DEF 74,1,242:KEY DEF 75,1,243 
30 SYMBOL AFTER 32:SPEED KEY 1,1 
40 SYMBOL 46,0,0,0,24,24,0,0,0 
50 SYMBOL 120,255,255,255,255,255,255,25 
5,255 

60 SYMBOL 97,60,126,255,255,255,255,126, 
60 

70 SYMBOL 98,0,66.231,231,255,255,126.60 
80 SYMBOL 99,60,126,255,255,231,231,66,0 
90 SYMBOL 100,60,126,252,240,240,252.126 
,60 

100 SYMBOL 101,60.126,63,15,15,63,126,60 
110 BORDER 0:INK 0,0=INK 1.24=INK 2,2:IN 
K 3,6 

120 MEMORY 16383:G0SUB 550 

130 X=20:Y=18::P0=0:T=0:S=0 

140 K*=INKEYS:IF K*>=CHR* (8.F0) AND K$<=C 

HRS ( 8.F3) THEN 190 

150 FOR Z=0 TO 20:NEXT Z 

160 FOR Z=0 TO 120:NEXT Z 

170 T=T+ 1: LOCATE 18,24:PRINT USINGCtt### 

#" ) ;T 

180 GOTO 140 

190 LOCATE X,Y:PRINT H a“ 

200 ON ASC(K$)-239 GOTO 210,250,290,330 
210 P=TEST(-8+16*X,406-16*(Y—1)):IF P=2 
THEN 160 

220 LOCATE X,Y:PRINT " ":Y=Y-l 
230 LOCATE X.Y:PRINT “b" 

240 GOTO 360 

250 P=TEST(-8+16*X,406-16*(Y+l)):IF P=2 
THEN 160 

260 LOCATE X.Y:PRINT ■ ":Y=Y+1 
270 LOCATE X,Y:PRINT "c" 

280 GOTO 360 

290 P=TEST(-8+16*(X-l),406-16*Y):IF P=2 
THEN 160 

300 LOCATE X,Y:PR1NT " ":X=X-1 
310 LOCATE X,Y:PRINT *e" 

320 GOTO 360 

330 P=TEST(-8+16*(X+1),406-16*Y):IF P=2 
THEN 160 

340 LOCATE X,Y:PRINT " ':X=X+1 
350 LOCATE X,Y:PRINT "d" 

360 IF P=3 THEN PO=PO+1:LOCATE 7,24:PRIN 

T USING1”###");PO 

370 POKE 16384+S,ASC(KS):S=S+1 

380 IF P0=452 THEN GOTO 410 

390 FOR Z=0 TO 100:NEXT Z 

400 GOTO 170 

410 FOR Z=0 TO 10:FOR Q=100 TO 10 STEP - 
2:SOUND 129,Q.200.15:NEXT Q,Z 
420 SOUND 129.1.1:LOCATE 1,25:PRINT * 
N=NEU GAME R=SHOW ROUTE 

430 A$=UPPERS(INKEYS):IF AS="N" THEN 120 
440 IF AS<>“R' THEN 430 

450 LOCATE 1,25:PRINT "SPACE PAUSES REPL 
AY - ENTER CONTINUES"; 

460 LOCATE X.Y:PRINT “ ":X=20:Y=18 


470 FOR Z=0 TO S-1 

480 LOCATE X,Y:PRINT "a“ 

490 K=PEEK(16384+Z) 

500 IF INKEYS< >“ " THEN 520 
510 IF INKEYSOCHRSt 13) THEN 510 
520 LOCATE X.Y:PRINT " " 

530 X=X+(K=242)-(K=243):Y=Y+(K=240)-(K=2 
41) 

540 NEXT Z:GOTO 420 
550 MODE 1 

560 AS="xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxx":GOSUB 920 

570 AS="x.x. 

.x ":GOSUB 920 

580 AS="x.xxxxxxxxxxxxxxxx.x.xxxxxxxxxxx 
xxxxx.X" :GOSUB 920 

590 AS= ’x.x.x. 

x.x":GOSUB 920 

600 AS= *x.xxx.x.xxx.x.xxxx.x.xxxx.x.xxx. 
x.xxx.x":GOSUB 920 

610 AS= “x.x. 

-x.x“:GOSUB 920 

620 A$="x.x.x.xxxxxxxxx.xxxxx.x.xxxxxxxx 
x.x.x.x":GOSUB 920 

630 /S="x.x.x.x.x...x.x. 

x.x.x.x *:GOSUB 920 

640 AS="X.X.X.X. X. X. XXX. X. X. X. X. XXX. X. X. 
X.X.X.X':GOSUB 920 

650 A*=*x...x.x.x.x.x...x.x.x.x...x.x.x. 
x.x...x":GOSUB 920 

660 AS=“xxxxx.x.x.x.x.x.x.xxx.x.x.x.x.x. 
x.xxxxx":GOSUB 920 

670 A$="x.x...x.x.x.x.x.x...x. 

.x“:GOSUB 920 

680 AS=“xxxxx.X.XXX.X.X.XXXXXXX.X.x.xxx. 
x.xxxxx":GOSUB 920 

690 A*=“x.x. 

x.x": GOSUB 920 

700 A$=“x.xxx.x.x.xxxxxxxxxxxxxxxxxxx.x. 
x.xxx.x":GOSUB 920 

710 A*="x. ..x.x.x.x.x. 

x.x...x":GOSUB 920 

720 A$="xxx. x. x. xxxxxxxxxx. x. xxxxxxxxxx. 
x.x.XXX":GOSUB 920 

730 AS=”x.a. 

.x":GOSUB 920 

740 AS=“x.xxxxxxxx.x.xxx.xxxxx.xxx.x.xxx 
xxxxx.x“:GOSUB 920 

750 A$="x.x.X...X.X...X.X...X.... 

_x.x":GOSUB 920 

760 AS="x.x.xxxxxxxxxx.x.x.x.x.x.xxxxxxx 
xxx.X.X":GOSUB 920 

770 A*="x. 

.x":GOSUB 920 

780 A*=“xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxx":GOSUB 920 
790 PEN 1 

800 PRINT "SCORE:000 TIME:00000" 

810 LOCATE 16,25: PR I NT "READY ?":CALL 8.B 
B06 

820 LOCATE 15.25:PRINT " 

830 SOUND 1.239,25:SOUND 2,119,25 
840 LOCATE 15,25:PRINT "1..";:FOR Z=0 TO 
1000:NEXT Z 

850 SOUND 1,239,25:SOUND 2,119,25 
860 PRINT "2.. M ;:FOR Z=0 TO 1000:NEXT 
870 SOUND 1,239,25:SOUND 2,119,25 
880 PRINT "3..";:FOR Z=0 TO 1000:NEXT 
890 SOUND 1.119,50:SOUND 2,60,50 
900 PRINT "GO 1 ";:FOR Z=0 TO 1000:NEXT 
910 RETURN 

920 FOR Z=1 TO LEN(AS) 

930 PEN 2:1F ASC(AS)=46 THEN PEN 3 

940 IF ASC(AS)=97 THEN PEN 1 

950 PRINT LEFTS(AS, 1 )::AS=MI DS(AS,2) 

960 SOUND 1,200, 1, 15:NEXT Z:PRINT 
970 RETURN 
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Krig i Sinusbjergene 

Fra verdensfirmaet 'Gylosprusoft' har vi modtaget 
følgende totalspil. der handler om den lange og forbi¬ 
trede kamp om Sinusbjergene i det nordlige Elektro- 
lytistan. 

Når spillet er startet op, spørges om der er en eller 
to spillere. Hvis du er alene, har du kontrol over bat¬ 
teriet til venstre og skyder mod fortet i højre side. 
Fortet vil ikke besvare ilden. 

Vælger du derimod 2-spilIer udgaven, skal du 
kæmpe mod en modspiller, og der skiftes hele tiden 
mellem spiller til højre/venstre. 

I vinduet øverst vil der efter hvert skud være angi¬ 
vet, om det er spilleren til højre eller venstre. der skal 
skyde. Nedenunder findes 'vinkelmålcren', der juste¬ 
res med joystick'en som følger: 

Højre = vinkel + 1 Venstre = vinkel - 1 

Op = vinkel +5 Ned = vinkel - 5. 

Når den ønskede vinkel er nået. trykker du forsig¬ 
tigt på 'skyd' knappen på joystick'en. og der spørges 
om skudstyrke. Denne indstilles på samme måde. Til 
slut skal du bekræfte, at du ønsker at skyde. Også her 
giver du svar med joystick'en: Op = ja. Ned = nej. 
Højre = ja. Venstre = nej. 

Hvis du trykker ‘Nej*, går programmet tilbage til 
indstilling af vinkel, hvis 'Ja 1 , affyres missilet med 
den vinkel og styrke, du angav. Du skal huske at tage 
tyngdekraften med i dine beregninger, for det tester 
programmet også. 

Vinkeludmålingen er sådan, at 00er vandret, og 90 
er lodret. Det vil sige, at hvis du sender missilet 90 
grader lodret i vejret, så drysser det lige ned i hovedet 
på dig igen. Husk også at proppe godt med krudt i rø¬ 
ret (stor styrke), for ellers kommer kuglen kun lige 
uden for kanonmundingen og destruerer dig selv. Du 
har lige så mange skud, som du behøver. 

Når et fort er smadret, vil computeren, mens den 
tegner en ny bane, spille en melodi og tydeligt angive, 
hvem der er vinderen. 

N.B.: Ved joystick-styring er 'fire' knappen meget 
følsom, så tryk kun lige akkurat en tiendedel sekund 
- det registreres med det samme. 

Der var i listningen indlagt en del lækre skærmsty¬ 
ringskommandoer som såkaldte syntetiske kommando¬ 
er '. Der findes desværre ikke nogen printer, der i øjeblik¬ 
ket er i stand til at reproducere disse - ligesom printeren 
går totalt agurk, når den støder på en sådan 'sy ntese kom¬ 
mando', så vi har tilladt os at fjerne disse. De findes selv¬ 
følgelig på de progmmlismiger, du kan bestille på kas¬ 
sette eller diskette. 

1 REM ***^tHttHt**tHHt***************tHHHt 

2 REM **** Gylospru Sottwarehouse **** 


3 REM *** Proudly Presenents *** 

4 REM ** ** 

5 REM * Krig i Sinusbjergene * 

6 REM ** ** 


7 REM *** At Sonny W Rasmussen l< *** 

8 REM **** Carsten Svaneborg **** 

10 sg=21 

20 DIM nd(7),sg(40,2> 

30 DATA 478,426,379,338,319,284,233 

4 . 


40 FOR q=l TO 7:READ nd (q>:NEXT:FOR q=l 
TO sg :READ sg(q,1), sg <q,2):NEXT q 
50 DATA 5,4,1,2,5,4,1,2,4,2, 3, 2,2,2, 3, 2, 
1,4,5,4,1,2,5,4,1,2,4,2,3,2,2,2,3,2,1,4 
60 DATA 3, 2,2,2,1,4 

70 SPEED INK 10,10:RANDOMIZE RND*40 
80 AFTER 100 GOSUB 1680 
90 a=0:b=l 
100 MODE 1 

110 INK 0,0:INK 1,24:INK 2,26:INK 3,18 
120 BORDER 0 

130 PRINT“Gylospru Sottwarehouse Proudly 
Presents:* 

140 PRINT" 

Krig i sinusbjergene 


150 PRINT- Gylospru .. SWR CS" 

160 PRINT 

170 MOVE 0,0:DRAW 100,0,1:DRAW 100,200:D 

RAW ø,2øø:DRAU ø,iøø:draw 2øø,iøø:draw 2 
00,200:HOVE 100,100:DRAW 200,0 
180 MOVE 400,0:DRAU 400,100,3:DRAW 350,3 
0:DRAU 300,100:MOVE 4øø,iøø:draw 450,50: 
DRAW 300,100:MOVE 400,100:DRAU 35ø,i5ø:d 
RAW 400,200:DRAW 450,150:DRAW 400,100 
190 PRINT* 1 eller 2 spillere? >“J 
200 INK 3,a:INK 1,26-a:a-a+b:IF a>26 THE 
N a=23:b»-1 

210 IF a<0 THEN a-i:b-l 

220 a*«INKEY*:IF a*<* 1“ OR a*>*2“ THEN 2 
00 

230 PRINT a* 

240 lk-VAL(a«) 

230 FOR q-1 TO 300:NEXT q 
260 DEG 
270 MODE 1 

280 WINDOW 40,1,40,1,5:WIND0W 41,1,40,6, 
23 

290 INK 0,0:INK 1,26:INK 2,2:INK 3,15,24 

300 BORDER 2 
310 PAPER 0:PEN 1 
320 PAPER 41,0 

330 REM *** Tegn landskab *** 

340 PL-1 

330 y=125 

360 q-RND*360 

370 w-INT(RND*110)*10 

380 e=(RND*2) 

390 xl=INT<RND*300):x2“320+INT(RND4300) 







400 IF X2-X1 <60 THEN 390 
410 FOR a=ø TO XI STEP 2 

420 MOVE A,0:DRAW A, (COS< 9+(E*A) ) *W)+ Y , 2 
:DRAU A-2 , (C0S<9+ (E*(A-2>>)*W)+Y,1 
430 NEXT A 

440 I=(COS( 0+(E*A )) *W)♦ Y 
450 Z1=I 

460 FOR A=X 1 *2 TO X1+18IM0VE A,0:DRAW A, 
I,2:PL0T A,I,1: NEXT A 
470 MOVE A-2, I 

480 DRAW A-2, <C0S(9+ <E*A)>*W>+Y,1 

490 FOR A=X1 +1 8 TO X2 STEP 2 

500 MOVE A,ø:DRAW A, (COS (8+(E*A))*W> +Y,2 

:DRAU A-2, (COS <9+<E*(A-2) ) >*W> +Y,1 

510 NEXT A 

520 I=(C0S<9+(E*A)>*W)+Y 
530 Z2=I 

540 FOR A=X2 TO X2+18IM0VE A,0:DRAW A.I, 
2:PLOT A,I,1:NEXT A 
550 MOVE A-2,I 

560 DRAW A-2,(COS(9+(E*A))*W > ♦ Y , 1 

570 FOR A=X2+18 TO 640 STEP 2 

580 MOVE A,0:DRAW A,(COS(9+(E*A))*W)+Y,2 

:DRAW A-2,(COS (9 +(E#(A-2) ) )*W)*Y,1 

590 NEXT A 

600 MOVE X1,Z1+2:DRAW Xl+18,Zl+2,3:DRAW 
X1+9,Z1*15:DRAW XI,Zl+2 

610 MOVE X2,Z2+2:DRAW X2*1 8 ,Z2 + 2,3:DRAW 
X2+9.Z2+15:DRAW X2.Z2+2 
620 DI 

630 REM +* BANEN TEGNET, NU SKYDNING ** 
640 CLS 

650 PRINT ■ SPILLER TIL ■; 

660 IF PL=2 THEN PRINT"HØJRE*i 
670 IF PL=1 THEN PRINT"VENSTRE * I 
680 PRINT*, DIN TUR' 1 f * 

690 VK=0 

700 REM *** Vinkel *** 

710 PRINT USING*VINKEL (00-90) HH 
*!VK 

720 A=JOY(0):IF A=0 THEN 720 
730 IF A>=32 THEN A=A-32 
740 IF A>=16 THEN A=A-16:G0T0 850 
750 IF A>=8 THEN A=A-8:VK=VK+1 
760 IF A > = 4 THEN A«A-4:VK=VK-1 
770 IF A> = 2 THEN A-A-2:VK-VK-5 
780 IF A>=1 THEN A=A-1:VK=VK+5 
790 SOUND 1,200,10,7 

800 IF A>0 THEN STOP:REM FATAL KATASTROF 
E 

810 IF VK<0 THEN VK=0 
820 IF VK >90 THEN VK=90 


830 FOR Q= 1 TO 5:NEXT O 
840 GOTO 710 
850 PRINT 

860 FOR 9= 1 TO 400:NEXT O 
870 ST=0 

880 REM *** Styrke *** 

890 PRINT USING“STYRKE (00-90) HH 
*ist 

900 A=JOY(0>:IF A=0 THEN 900 
910 IF A>=32 THEN A=A-32 
920 IF A>=16 THEN A=A-16:G0T0 1030 
930 IF A>=8 THEN A=A-8:ST=ST+1 
940 IF A>=4 THEN A=A-4: ST=ST-1 
950 IF A>=2 THEN A=A-2: ST=ST-5 
960 IF A >= 1 THEN A=A-1:ST=ST + 5 
970 SOUND 1,200,10,7 

980 IF A>0 THEN STOP:REM FATAL KATASTROF 
E 

990 IF ST<0 THEN ST=0 
1000 IF ST>90 THEN ST=90 
1010 FOR Q=1 TO 5:NEXT 9 
1020 GOTO 890 
1030 PRINT 

1040 FOR 9* 1 TO 400:NEXT 9 
1050 A*=*N* 

1060 PRINT*SKYD (J/N) *;A*i* 

1070 A=J0Y(0):IF A=0 THEN 1070 
1080 IF A> = 32 THEN A*A-32 
1090 IF A>=16 THEN A=A-16:G0T0 1160 
1100 IF A>«8 THEN A=A-8:A*="J* 

1110 IF A>=4 THEN A=A-4:A*=*N* 

1120 IF A > = 2 THEN A=A-2:A*=*N* 

1130 IF A >= 1 THEN A=A-1:A*=*J* 

1140 IF A>0 THEN STOP:REM FATAL KATASTRO 
FE 

1150 GOTO 1060 

1160 IF A*=*J* THEN 1180 

1170 GOTO 640 

1180 REM *** af+yring a* missil *+* 

1190 PRINT*10 ** : CLS 

1200 IF PL-2 THEN 1240 

1210 X=X1410:Y=Z1*20:XG=X:YG=Y 

1220 XR=COS(VK)*(ST/6.5> : YR=SIN(VK)*(ST/ 

6.5) 

1230 GOTO 1260 

1240 X=X2»10:Y=Z2*20:XG=X: YG-Y 

1250 XR=COS (180-VK )#( ST/6.5 ) :YR=SIN(180- 

VK)*(ST/6.5) 

1260 * 

1270 MOVE XG,YG:DRAW X,Y,l:FOR 9=1 TO 20 
: NEXT 9:DRAW XG,YG,0:XG=X: YG*Y 
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1280 X=X+XR: Y”Y*YR 
1290 YR=YR-0. 1 

1300 IF X<0 OR X>640 THEN 1610 

1310 IF Y<0 THEN 1610 

1320 IF TEST( X ,Y ) >0 THEN 1360 

1330 IF Y >500 THEN 1350 

1340 SOUND 1,550-Y,1,5 

1350 GOTO 1270 

1360 RAD 

1370 SOUND 1,300,200,15,2,2,15 
1380 FOR V=0 TO 360 STEP 10IMOVE X,Y:DRA 
U X+(COS (V) *< V/28 )> ,Y*<SIN(V)*(V/28) > ,3: 
NEXT V 

1390 FOR V=0 TO 360 STEP 10IMOVE X , Y :DRA 
W X+(COS (V) * (V/ 28) ) ,YMSIN(VHMV/28)),0: 
NEXT V 
1400 DEG 

1410 IF X> ( XI-20) AND X<(X1+40) AND YXZ 

1- 20) AND Y<( Z1+30) THEN 1460 

1420 IF XXX2-20) AND X< (X2*40) AND YXZ 

2- 20) AND Y< (Z2+30) THEN 1540 
1430 PL=PL*l:IF PL > 1 k THEN PL=1 
1440 GOTO 640 

1450 REM *** Playar 2 vindar *** 

1460 CLSIPRINT-SPILLER TIL HØJRE ER VIND 
EREN! !•■ 

1470 GOSUB 1630 
1480 CLS NI 
1490 GOSUB 1660 

1500 PL=PL*l:IF PL>1k THEN PL-1 

1510 El 

1520 GOTO 350 

1530 REM *** PJayar 1 vinder *** 

1540 CLS:PRINT"SPILLER TIL VENSTRE ER VI 
NDEREN!!!* 

1550 GOSUB 1630 
1560 CLS NI 
1570 GOSUB 1660 

1580 PL=PLM:IF PL> 1 k THEN PL-1 

1590 El 

1600 GOTO 350 

1610 GOTO 1430 

1620 REM *** Fed soand *** 

1630 SOUND 1,300,200,15 

1640 FOR U-0 TO 360 STEP 10:SOUND 2,U,10 
,15:F0R B=1 TO iø:next b:next U 
1650 RETURN 
1660 a-INT(RND*24*l> 

1670 INK 2,a:BORDER a:RETURN 

1680 po=po*l:IF po>sg THEN po*l 

1690 SOUND 4,nd (sg (po,1) ) ,10*sg(po,2),5 


1700 AFTER 5*sg(po,2) GOSUB 1680 
1710 RETURN 



Styr på økonomien 

Noget af det. der jo nok interesserer de allerfleste, er 
det hjemlige budget - ikke mindst i disse 'pakke‘-ti- 
der. Som et hjælpemiddel til dette er din Amstrad 
yderst velegnet - logisk set er den jo bare en overdi¬ 
mensioneret lommeregner, så med lidt programme¬ 
ring har du gode muligheder for at opnå et hurtigt 
overblik over din finansielle situation lige nu - og i 
fremtiden. 

Programmet kan bruges med både diskettestation 
og bånd og kan lave printerudskrifter, hvis dette øn¬ 
skes. Der er menustyring hele vejen igennem. 

Hovedmenuen byder på følgende muligheder: 

1. LOAD BUDGET DATA 

2. SAVE BUDGET DATA 

3. OPRET BUDGETPOSTER 

4. INDSKRIV/RET DATA I BUDGET 

5. UDSKRIFT AF UDGIFTER/INDTÆGTER 

6. GENNEMSNIT PR. MÅNED 

7. ÅRSOVERSIGT 

8. SLUT 

De to første valgmuligheder giver jo nok sig selv. Når 
programmet startes første gang. skal man vælge me¬ 
nupunkt 3 OPRET BUDGETPOSTER. Her defi- 
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nerer man sine udgifts- og indtægtsposter. Disse po¬ 
ster bliver senere gemt sammen med data fra de en¬ 
kelte poster, når du SAVE’r det hele til slut. 

Vælger du menupunkt 5, får du en 3-måneders 
oversigt over dine udgifter, startende fra januar må¬ 
ned. Man kan herefter vælge at få posterne udprin¬ 
tet, se indtægterne for samme periode, gå tilbage til 
menu eller se næste periode. 

Punkt 6 giver en samlet oversigt over indtægter og 
udgifter som en gennemsnitsudregning - i stil med 
bankernes 'budgetkonti', 'familiekonti' og hvad de 
nu hedder. 

Valg af punkt 7 giver dig en årsoversigt med de ak¬ 
tuelle beløb i indtægter og udgifter, måned for må¬ 
ned. 

De anvendte variabler skulle være til at gennem¬ 
skue, da de har med udgifter at gøre, starter med bog¬ 
staverne ud, og indtægterne starter med (gæt engang) 
ind. løvrigt skulle programmet ikke kunne bryde 
ned, hvis man blot svarer rigtigt på spørgsmålet, om 
man har disc eller printer tilsluttet. Ellers er der ikke 
mange kommentarer, ud over at de valgte printerko¬ 
der er til en SEIKOSHA SP-800. 

Rigtig god fornøjelse! 

10 INK ø,ø:border ø:ink 1,ø:INK 2,0:INK 3 
,ø:mode i 

20 CLS:PEN l:c*=CHR*(143):a*=CHR*(212):b 
*=CHR*<213>:d*=CHR*(214):e*=CHR*(213) 

30 FOR a=1 TO 15:L0CATE 12+a,20:PRINT c* 
:NEXT:LOCATE 28,20:PRINT a*:LOCATE 28,19 

:print c*:locate 28,i8:print c* 

40 LOCATE 18,17:PRINT b*lC*5C*!C*!a*jb*5 

c*;cstc*;c*;e* 

50 LOCATE 18,16:PRINT C*t ’ "C*iC*:LOCA 
TE 18,15:PRINT C*i" “SC*:LOCATE 18,14 
:PRINT C*J" " > d*!C* i C*!C*» C*:LOCATE 1 

8,13:PRINT C* 

60 LOCATE 13,12:PEN l:PRINT c*;* " i C* 5 

c*i" ";c*i:PEN 3 :print b*ic*;c*ic*ia*: 
LOCATE 13,ll:PEN 1:PRINT c*;" " ; c*id*i 

C*;c*;c»ie*i : PEN 3:L0CATE 22,11:PRINT b* 
ie*i" "d*ia* 

70 FOR b=238 TO 224 STEP -2:PL0T 336, b,l 
:NEXT:FOR b=236 TO 224 STEP -2:PL0T 338, 
b:NEXT : FOR b=234 TO 224 STEP -2:PL0T 340 
, b:NEXT:FOR b=232 TO 224 STEP -2IPL0T 34 
2,b:NEXT:FOR b=230 TO 224 STEP -2:PLOT 3 
44 ,b : NEXT:FOR b=228 TO 224 STEP -2:PL0T 
346,b : NEXT 

80 FOR b=226 TO 224 STEP -2:PLOT 348, b:N 
EXT:PLOT 330,224 

90 LOCATE 13,10:PEN 1:PRINT C*J ’ *»C*I 

■ ■ t: pen 3:print c*-,’ *;c*;c*ic*i* ’t 

c*:locate 13,9:pen i:print c*;c*;c*!c*sc 
*1" "i : PEN 3:PRINT C*t* ’|C*|* ’IC* 

100 LOCATE. 13,8:PEN 1:PRINT C*!* " iC*S 


:pen 3:print c*: 


1 ;c*;c*j c*i■ -i 


C* 


110 LOCATE 13,7:pen 1:PRINT c*i * •;C*i 

" ">:PEN 3:PRINT d*;a*f ")b»ieS:LO 
CATE 13,6 :pen i:print c*i ■ "JC*!" 

’cpen 3:print d*sc*;c*!C*;e* 

120 LOCATE 8,25:PEN 2:PRINT"HERMAN•s COM 
PUTER SOFTWARE’:PEN 3:L0CATE 14,2:PRINT" 
HJEMME BUDGET* 

130 INK 1,26:INK 2,24:INK 3,6 
140 RUN’!” 


$ 



1000 ' ********************************* 
1010 ’♦**** BUDGET PROGRAM ***** 
1020 '***** ***** 
1030 ’***** HERMAN CPC SOFTWARE ***** 
1040 ’*»*** ***** 

1050 ’***** APRIL 1986 ***** 

1070 ON ERROR GOTO 3140 
1080 MODE 2:INK ø,0:INK 1,26:B0RDER 3 
1090 CLStLOCATE 23,3:PRINT "HAR DU DISCE 
TTE TILSLUTTET (J/N)" 

1100 qS=UPPER*(INKEY*):IF q*=’J’ THEN !D 
ISC:di sc = l ELSE IF q*=’N“ THEN disc=0 EL 
SE GOTO 1100 

1110 LOCATE 25, 7 :PRINT ■ HAR DU PRINTER T 
ILSLUTTET (J/N)’ 

1120 q*=UPPER*(INKEY*>:IF q*="J’ THEN pr 
=l:PRINT#8,CHR*(27)J’Ø’1:PRINT*8,CHR*(27 
);"3 "schr*(15);:print#8,chr*(27);*m";:pr 
INTM 8,CHR*(27); 0 1 ’i CHR»(10)5 ELSE IF q*= 
’N" THEN pr“0:GOTO 1130 ELSE GOTO 1120 
1130 SYMBOL AFTER 256:0PEN0UT ’ dummy-* : ME 
MORY HIMEM-l:CLOSEOUT:SYMBO L AFTER 90 
140 SYMBOL ASCCf), 126,216 ,216,234^216^ 

,216,222:SYMBOL ASC (* 3■) ,56,0,124,198,25 
4,198,198:SYMBOL ASC (’("),0,0,116,26,126, 
,216,11 0 

1150 SYMBOL 177,0,136,136,136,248,136,13 
9,140:SYMBOL 178,0,28,34,93,81,93,162,92 
:SYMBOL 179,4,4,4,4,3,0,0,255:SYMBOL 180 
,0,60,64,64,188,2,2,232 
1160 DEFINT a- 2 :DEFREAL a-z:p=0 
1170 DIM udtekst*(15),indtekst*(15),md*( 
12),ud*(15,12>,ind*(6,12),ud 1* ( 15,12),in 
d1*(6,12),ud(13,12),ind(6,12), sum( 15), in 
dsum ( 15),udsum(15), gensum (15),gensuml ( 15 
) 

1180 WINDOW#1,2,79,5,24:WINDOW 1,80,1,25 
1190 • ********************************* 
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1200 ' ***** MENU ***** 

1210 ’ ********************************* 
1220 CLS:PLOT ø.ø: DRAM 0,398:DRAM 639,39 
3:DRAM 639,0: DRAM 0,0:PLOT 1,2:DRAU 1,39 
6 : DRAW 638 , 396 :DR AU 638,2:DRAW l,2:PLOT 
0,349:DRAW 639 , 349:PLOT 0,347:DRAW 639,3 
47 

1230 PLOT 52, 398: DRAW 52,347:PL0T 587,39 
SIDRAW 587 , 347 :PLOT 53,398:DRAW 53,347:P 
LOT 586,398:DRAW 586,347:PLOT 52,372:DRA 
W 587,372 

1240 TAG: PLOT 20, 388: PRINT CHR*(177)JCHR 
*( 178) ;:MOVE 20, 372: PRINT CHR*(179 ) 5CHR* 
(180M :MOVE 603,388:PRI NT CHR* ( 177);CHR* 

( 178) I: HOVE 603,372:PRINT CHR*(179)1CHR* 
(180)!:TAGOFF 

1250 TAG:PLOT 115,390:PRINT‘BUDGET PROGR 
AM ■(CHR*(164)J ■ HERMAN 1 s COMPUTER SOFT 
WARE-; :MOVE 498,390:PRINT"FREE-;:TAGOFF 
1260 DATA LOAD BUDGET DATA.,SAVE BUDGET 
DATA.,OPRET BUDGET POSTER.,INDSKRIV/RET 
DATA I BUDGET..UDSKRIFT AF UDGIFTER/INDT 
CGTER..GENNEMSNIT PR. M1NED.,IRSOVERSIGT 
.,SLUT. 

1270 CLSM1:RESTORE 1260:FOR a=l TO 8:REA 
D a* ( a) : NEXT 

1280 DATA ’ JANUAR-,* FEBRUAR-, • V M 
ARTS-,* ' APRIL-, ■ MAJ-,- S JUNI 

-,- JULI*,* AUGUST-,-SEPTEMBER -,■ Z 

OKTOBER*,* NOVEMBER-,-DECEMBER* 

1290 RESTORE 1280:FOR b=l TO 12:READ md* 
(b ) :NEXT 

1300 TAG:PLOT 530,390:PRINT FRE(0);:TAGO 
FF 

1310 TAG:PLOT 104,366:PRINT■ 

SL 

■J:TAGOFF:CLSM1 

1320 FOR b-2 TO 16 STEP 2:LOCATEM1,25, b + 

1:PRINT*1, b/2! “ * 5 a*(b/2):NEXT 

1330 LOCATEM1,35,20:PRINTMI,"TRYK NUMMER 
■:nr=VAL ( INKEY*):IF nr<l OR nr>8 THEN 13 
30 

1340 CLSMl:ON nr GOTO 1390,1510,1640,173 
0,1950,2580,2870,1350 
1330 MODE 2:END 

1360 1 *******»»»*»»»***»**»»****»*»***» 
1370 ’***** LOAD BUDGET DATA ***** 

1390 TAGIPLOT 244,366:PRINT“LOADING BUDG 
ET DATA-J:TAGOFF 

1400 IF disc=l THEN 1410 ELSE GOTO 1420 


1410 LOCATEH1,26,2:PRINT*1,“SKAL DATA HE 
NTES FRA BIND ELLER DISC ( D / B) ■ :q*=UPPER 
»(INKEY*):IF q*=-D- THEN !DISC:GOTO 1430 
ELSE IF q*=-B' THEN !TAPE: GOTO 1420 ELS 
E 1410 

1420 CLSM1:LOCATEH1,26,4:PRINTMI,-INDSET 
TAPE MED DATA":LOCATEH1,26,6:PR INTHl," T 
RYK EN VILK1RLIG TAST ■ :CALL WBB18:G0T0 1 

440 

1430 LOCATEH1,26,4:PRINTHI, * INDStT DISC 
MED DATA-LOCATEH1,26,6:PRINTH1,“TRYK EN 
VILK1RLIG TAST* : CALL *<BB18 
1440 OPENIN *Ibudgat.dat- 
1450 FOR a-1 TO 15:INPUTH9,ud tekst* (a) : N 
EXT:FOR a-1 TO 6:INPUTH9,indtekst*(a>:NE 
XT:FOR a-1 TO 15:FOR b-1 TO 12:INPUTH9,u 
d*(a,b>:NEXT b,a:FOR a-1 TO 6:F0R b-1 TO 
12:INPUTH9,ind*(a,b):NEXT b.a 
1460 CLOSEIN:p-1 
1470 GOTO 1300 

1480 1 ***********»»»»»»*»****»»****»»*» 
1490 '****♦ SAVE BUDGET DATA ***** 

1510 TAG:PLOT 243,366:PRINT"SAVING BUDGE 
T DATA-;:TAGOFF 

1320 IF disc-1 THEN 1530 ELSE GOTO 1550 
1330 LOCATEH1,26,2:PRINTH1,"SKAL DATA SA 
VES TIL BIND ELLER DISC (D/B)*:q*-UPPER* 
(INKEY*):IF q*-*D- THEN iDISC:GOTO 1340 
ELSE IF q*--B* THEN !TAPE:GOTO 1550 ELSE 
1530 

1340 LOCATEH1,26,4:PRINTMI,*INDSIT DISC 
TIL DATA-:L0CATEH1,26,6:PRINTH1,-TRYK EN 
VILK1RLIG TAST■:CALL ltBB18:GOTO 1370 
1330 LOCATEH1,26,4:PRINTH1,-INDSIT TAPE 
TIL DATA-:LOCATEH1,26,6:PRINTMI,"TRYK EN 
VILK IRLIG TAST* : CALL 1.BB18 
1560 SPEED WRITE 
1370 OPENOUT *!budget. dat" 

1580 FOR a-1 TO 13:URITEM9,udt*k*t*(a):N 
EXT:FOR a-1 TO 6:WRITEM9,indtekst*(a):NE 
XT:FOR a-1 TO 15:F0R b-1 TO 12:URITEM9,u 
d*(a,b):NEXT b,a:FOR a=l TO 6:F0R b=l TO 
12:WRITEM9,ind*(a,b):NEXT b,a 
1390 CLOSEOUT:IF di»c-l THEN a*«"budget. 
bak-:!ERA,8a* 

1600 p-0:GOTO 1300 

1620 '****♦ OPRET BUDGET POSTER ***** 

1640 IF p=l THEN PRINTHI,- DU KAN 
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THEN 


IKKE OPRETTE NYE POSTER FØR DU HAR SAVE 
T FILEN I MASKINEN" : FOR q=l TO 5000:NEXT 
:GOTO 1300 

1650 TAG:PLOT 212,366:PRINT"OPRETTELSE A 
F BUDGET POSTER"5: TAGOFF 

1660 PRINTMI,CHR* ( 2):LOCATE#1,4,1:PRINT# 
1, “UDGIFTER" :LOCATE#1,44,1:PRINT#1,"INDT 
CGTER" 

167ø FOR a= 1 TO 15:LOCATE#1,4,a+2:PRINT# 
1,USING"## " S a[:NEXT:FOR a-1 TO 6:L0CATE# 
1,44,a + 2:PRI NT#1,a;:NEXT 

1630 FOR a=l TO 15:LOCATE#1,8,a+2:INPUT# 
1, ”> ", ud tekst*(a):ud tekst* ( a)=UPPER*<ud 
tekst*(a) 1 :LOCATE#1,8,a+2:PRINTMl,udteks 
t*(a);- ":next 

1690 FOR a-1 TO 6:LOCATE#l,48,a+2:INPUT# 
1, "> ", 1ndtekst* (a) :indtekst*(a)-UPPER*( 
indtekst* (a)) :LOCATE#l,48,a+2:PRINT#1,in 
d tekst*(a)i “ ":NEXT 

1700 LOCATE#1,20,20:PRI NT#1,"ER DISSE DA 
TA IORDEN (J/N) * 

1710 a*=UPPER*(INKEY*):IF a*<>"J" AND a* 
<>"N" THEN 1710 ELSE IF a*="J" THEN p-l: 
GOTO 1300 ELSE IF a*="N" THEN CLS#l:GOTO 
1660 

1730 ****** INDSKRIVNING AF DATA ***** 

1750 TAG:PLOT 208,366:PRINT"INSKRIVNING 
AF DATA I BUDGET*J:TAGOFF 
1760 PRINT#1,CHR*(21:LOCATE#l,5,2:INPUT# 
1, " I HVILKEN MINED VIL DU STARTE (1-12) 
",mdl:LOCATE#1,45,2:INPUT#1,"TIL HVILKEN 
MINED *,md2 

1770 LOCATE#1,5,2:PRINT#1,SPACE*(70) 

1780 FOR b=md1 TO md2:LOCATE#1,4,1:PRINT 
#1, " INDSKRIVNING"[md*(b >[" MINED" 

1790 LOCATE#1,4,3:PRINT#1,"UDGIFTER":LOC 
ATE#1,44,3:PRINT#1,"INDTCGTER" 

1800 FOR a-1 TO 15: LOCATE#l, 4, a+4: PRINT# 
1,USING"##*[a[:PRINT#1,* ";udtekst*(a)I 

:LOCATE#1,28,a+4:PRINTMI.SPACE*(12):LOCA 
TE#1,27,a+4:PRINT#1,USING"#####.##"[VAL( 
ud*(a,b)):NEXT 

1810 FOR a=1 TO 6:LOCATEM1,43,a+4:PRINT# 
1,USING"##"ia[:PRINT#1," ■[indtekst*(a) 

S:LOCATE#1,58,a+4:PRINT#1,SPACE*(12):LOC 
ATEM1,57,a+4:PRINT#1,USING"#####.##"[VAL 
( ind*(a,b)):NEXT 
1820 FOR a=l TO 15 

1830 udl*(a,b)=ud*(a,b):LOCATEM1,26,a+4: 


INPUTM1, ">“, ud*(a,b) : IF ud*(a,b)=“ " 
ud*(a,b)=udl*(a,b) 

1840 LOCATE#l,26,a+4:PRINT#l,SPACE*(10)[ 
:LOCATE#1,32, a+4: PRINT#1,USING“#####.##" 
i VAL(ud*(a,b )) 

1850 NEXT a: FOR c=l TO 6 

1860 indl*(c,b)=ind*(c,b):LOCATE#1,56,c+ 
4:INPUT#1, *>",i nd*(c,b ) :IF ind*(c,b>-"" 
THEN ind*(c,b)=indl*(c,b) 

1870 LOCATE#1,56,c + 4:PRINTN1,SPACE*(10)[ 
:LOCATE#1,62, c +4:PRINT#1,USING"#####.##" 
[VAL ( ind* ( c,b )) 

1880 NEXT c,b 
1890 GOTO 1300 

1910 ****** UDSKRIVNING AF DATA ***** 

1930 ****** UDGIFTER ***** 

1950 CLS#l:TAG:PLOT 198,366:PRINT"UDSKRI 
VNING AF UDGIFTER/INDTIGTER";:TAGOFF 
1960 L0CATEM1,23,2:PRINT#1,"UDSKRIVNINGE 
N SKER I 3 MDR. PERIODER":FOR a-1 TO 500 
ØINEXT 

1970 IF mdl>10 THEN CLS#1:PRINT#1,TAB ( 10 

)I"START M1NEDEN Ml IKKE VIRE OVER 10 "I 

FOR a-1 TO 3000:NEXT:CLS#l:GOTO 1960 

1980 o-l 

1990 CLS#l:ud-l 

2000 FOR b-o TO 12 STEP 3 

2010 PRINTNud,TAB(4>I"UDGIFTER"|:PRINTNu 

d,TAB(23)|ad*(b)|TAB(43)[md*(b+l)[TAB(63 

)tad*(b+2) 

2020 PRINTMud,TAB(4)[STRING*(68,"*")J 
2030 FOR a-1 TO 15 
2040 IF udtekst*(a)=" " THEN 2070 
2050 PRINTMud,TAB(4)Judtekst*(a)|:PRINT# 
ud,TAB(24)[USING"#####.##"[VAL(ud*(a.b)> 
S:PRINTMud,TAB(44)IUSING"HNHNN.NN"[VAL(u 
d*(a,b+1))S:PRINTMud,TABI64)[USING*##### 
.NN"I VAL(ud*(a,b + 2)) 

2060 NEXT a 
2070 GOSUB 2190 

2080 PR I NTttud, T AB (4 > I STRI NG* (68, " - " ) | : PR 
INTNud,TAB(4)I"SAMLEDE UDGIFTER"I:PRINT# 
ud,TAB(23>IUSING"#•####.##"|udsum(b>C PR 
INTNud,TAB(43)IUSING"######.NN•Iudsua(b+ 
1)I:PRINTMud,TAB(63)IUSING"NNNNNN.NN'[ud 
sum(b+2):PRINTMud,TAB(4)|STRING*(68,*-") 
2090 IF ud-8 THEN PRINTM8:PRINTM8 
2100 LOCATE#1,20,20:PRINT#1,*(P)rint (V 
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)idere (I > ndt< gter- (M)enu' 

21 10 q*=UPPER*( INKEY*) : IF q*="P“ THEN ud 
= 3:LOCATEH1,20,20:PR INTH 1 ,SPACE*< 40> : GOS 
OB 2l4ø:GOTO 2010 ELSE IF q*="V" THEN GO 
TO 2120 ELSE IF q*=*M“ THEN GOTO 1300 EL 
SE IF q*= " I " THEN ud=l:GOTO 2230 ELSE 21 
10 

2120 CLSH 1 : od=1 : NEXT b 
2130 GOTO 1300 

2140 IF pr =0 THEN 2150 ELSE RETURN 
2150 LOCATEH1 ,20,20:PRINTH1,"DER ER IKKE 
TILSLUTTET PRINTER ":FOR a*l TO 

2000:NEXT:ud=l:GOTO 2100 

2120 ****** SUM UDGIFTER ***** 

2190 FOR d=b TO b + 2 :ud sum( d ) =0:FOR a-1 T 
O 15 

2200 udsum(d) =udsum ( d)+VAL ( ud*(a,d )) 

2210 NEXT a,d 
2220 RETURN 
2230 CLSH1 

2250 ****** INDTtGTER ***** 

2270 PR I NT Hud , TAB ( 4) ; ** INDT C GTER" i : PR I NT* 
ud,TAB(23)»md*(b>;TAB(43)Jmd*(b+1) STAB(6 
3)Smd*(b+2>:PRINTHud,TAB(4 ) 5 STRING*(68, * 

*" ) 5 

2280 FOR a=l TO 6 

2290 IF indtekst*(a)="" THEN 2320 
2300 PRINTHud,TAB(4>Sindtekst*(a> S SPRINT 
Hud,TAB(24)S USING"HHHHH.HH"S VAL <ind*(a,b 
)) S:PRINTHud,TAB(44)SUSING " HHHHH.HH"S VAL 
(ind*(a,b+l)) J:PRINTHud,TAB(64)SUSING’HH 
HHH.HH*i UAL(ind*(a,b+2> ) 

2310 NEXT a 
2320 GOSUB 2510 

2330 PRINTHud,TAB(4)S STRING*(68, ”-* )I:PR 
INTHud,TAB ( 4)S"SAMLEDE INDTCGTER"S 1 PRINT 
Hud,TAB(24)SUSING"HHHHH.HH"Sindsum<b)S:P 
RI NT Hud,TAB ( 44)SUSING“HHHHH.HH " Sindsum(b 
+1)i:PRINTHud,TAB(64)SUSING"HHHHH.HH";in 
dsum(b+2) 

2340 PRINTHud,TABI4)5STRING*(68,"="):PRI 
NT Hud:IF ud = 8 THEN PRINTH8 
2350 PRINTHud,TABI4)S"BALANCE * S:PRINTHud 
,TAB (23) ;md*(b);TAB(43)5md*(b+l>I TAB(63) 
5md*(b+2):PRINTHud,TAB(4)i STRING*(68,"*" 
>1 

2360 PRINTHud,TAB(4)S"SAMLEDE UDGIFTER"» 


(PRINTHud,TAB(24)S USING" HHHHH.HH " i udsum( 
b)S(PRINTHud,TAB(44)S USING" HHHHH.HH" i uds 
um (b+ 1 ) S:PRINTHud .TAB(64) iUSING"HHHHH.HH 
■ ;udsum(b+2) 

2370 PRINTHud,TAB(4)S "SAMLEDE INDTIGTER" 

S:PRINTHud,TAB ( 24)S US I NG "HHHHH.HH " ( indsu 
m(b> S(PRINTHud,TAB(44); USING“ HHHHH.HH"5 i 
ndsum(b+ 1 ) S(PRINTHud, TAB( 64 ) SUSING"HHHHH 
.HH"!indsum(b+2) 

2380 FOR a=0 TO 2( sum (b + a) =0: sum (b + a)n 

dsum(b+a)-udsum(b+a)(NEXT 

2390 PRINTHud,TAB(4>1STRING* (68 , *-") 

2400 PRINTHud,TAB(4)S "OVER/UNDERSKUD" i(P 
RINT Hud,TAB ( 24)SUSING"HHHHH.HH“isura(b)S( 
PRINTHud,TAB(44)iUSING"HHHHH.HH“S sum(b +1 
) S(PRINTHud,TAB(64)1USING"HHHHH.HH"i sum( 
b + 2) 

2410 PRINTHud,TAB(4)S STRING*(68, "=*>:IF 
ud=8 THEN PRINTH8:PRINTH8 
2420 LOCATEH1,20,20(PRI NTH1, ■< P)rint (V 
) idere (M)enu * 

2430 q*=UPPER*(INKEY*)(IF q*="P" THEN ud 
=*8( LOCATEH 1,20,20: PRINTHI .SPACE* (40) (GOS 
UB 2440:GOTO 2270 ELSE IF q*="V" THEN o= 
b+3(GOTO 1990 ELSE IF q*="M” THEN GOTO 1 
300 ELSE 2430 

2440 IF pr=0 THEN 2450 ELSE RETURN 
2450 LOCATEH1,20,20(PRINTHI,"DER ER IKKE 
TILSLUTTET PRINTER "(FOR a=l TO 

2000(NEXT:ud*1(GOTO 2420 
2460 CLSH1:ud=l 
2470 GOTO 1300 

2490 ****** SUM INDTtGTER ***** 

2510 FOR d=b TO b+2:indsum(d)-0:FOR a*l 
TO 6 

2520 indsum(d)=indsum(d ) +VAL ( ind*(a,d ) ) 
2530 NEXT a,d 
2540 RETURN 

2550 ********************************** 
2560 •**♦** GENNEMSNIT PR. M1NED ***** 

2580 CLSHl:TAG:PLOT 180,366:PRINT"UDSKRI 
VNING AF GENNEMSNIT PR. MINED"S(TAGOFF 
2590 ud=l 

2600 FOR a=l TO 15:gmnsum(a)»0:FOR b«l T 
O 12 

2610 gmnsum(a)=g*nsum(a)+VAL(udsia.b)> 
2620 NEXT b:sum(a)«g*nsum ( •)/12:NEXT a 
2630 FOR a*l TO 6:gansuml(a)=0:FOR b*l T 
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O 12 

2640 i r.d (a,b> =VAL ( » nd*(a, b) ) 

265ø gensuml (a)=ger.suml (a) »ind(a,b> 

2660 NEXT b : suml ( a ) = gensurnl ( a) /12:NEXT a 
2670 udsum=0: FOR a=l TO 15: udsum=udsum*g 
ensum(a) : NEXT:indsum=0 : FOR a=l TO 6:inds 
um= i ndsum »gensum 1 (a) : NEXT 
2630 udsum=udsum/ 12 :i ndsum= i ndsum / 1 2 
2690 PRINT4ud,TAB(4>J "UDGIFTER GENNEMSNI 
T PR. MDR.“ i: PR INT# ud, TAB ( 40); * INDT I GTER 
GENNEMSNIT PR. MDR.“:PRINT4ud,TAB<4);ST 
RI NG® ( 68, •'*“ ) : 

2700 ROR a=1 TO 15 

2710 IF ud tekst*( a)="“ THEN 2790 ELSE PR 
INTNud,T AB ( 4)1 ud tekst* (a) j:PRINTHud,TAB( 
24)J USING "ItUBttK. tMT ; sum lal i 
2720 IF i ndtekst* <a>=“" THEN 2730 ELSE P 
RINT4ud,TAB (40) ;ind tekst*<a) 5 :PRINT4ud,T 
AB(64);USING"44444.44"isuml(a):GOTO 2790 
2730 IF a=7 THEN PRINT4ud,TAB(40)5 STRING 
*(32, ■*") :GOTO 2790 

2740 IF a=8 THEN PRINT4ud,TAB ( 40);"GENNE 

MSNIT INDTCGTER * 1:PRINT4ud,TAB(64);USIN 

G"44444.44"5 ind sum: GOTO 2790 

2750 IF a=9 THEN PRINTHud,TAB(40)5“GENNE 

MSNIT UDGIFTER ” i:PRINT4ud,TAB(64)5 USI NG 

"44444.44 • I udsum:GOTO 2790 

2760 IF a=10 THEN PRINT4ud,TAB(40 ) 5STRIN 

G*(32, ) :GOTO 2790 

2770 IF a=l1 THEN PRINT4ud,TAB(40 ) 5"OVER 
/UNDERSKUD " I:PRINT4ud,TAB(64)5USING*444 
44.44“;indsum-udsum:GOTO 2790 
2780 IF a=12 THEN PRINT4ud,TAB(40 ) |STRIN 
G* ( 32, "=") :GOTO 2790 

2790 NEXT a:IF ud=8 THEN PRINT48:PRINT48 
ELSE GOTO 2800 

2800 L0CATE41,20,20:PRINT41, ■ (P)rint (M 
) enu * 


2810 q*=UPPER*(INKEY*):IF q*="P" THEN ud 
=8:L0CATE41,20,20:PRINT41,SPACE*(40):GOS 
UB 2820:GOTO 2690 ELSE IF q*="M" THEN ud 
=l:GOTO 1300 ELSE GOTO 2810 
2820 IF pr=0 THEN 2150 ELSE RETURN 
2830 LOCATE41,20,20:PRINT41,* DER ER IKKE 
TILSLUTTET PRINTER ■:FOR a=l TO 

2000:NEXT:ud=l:GOTO 2800 
2840 

2850 ****** JRSOVERSIGT 

2860 


2870 TAG:PLOT 200,366:PRINT"IRSOVERSIGT 
UDGIFTER/INDTIGTER"5:TAGOFF 


2880 GOSUB 3040:GOSUB 3110:ud=l 
2890 PRINT4ud,TAB(4)5"UDGIFTER 3 

RSOVERSIGT“5:PRINT4ud,TAB(40)5“INDTCGTER 
JRSOVERSIGT":PRINT4ud,TAB(4) 
5 STRING*(68,**")i 
2900 FOR a = l TO 15 

2910 IF udtekst*(a>="" THEN 2990 ELSE PR 

INT4ud,TAB(4 ) 5 udtekst*(a)i:PRINT4ud,TAB( 

23)5 USING *444444.44"!udsum(a)5 

2920 IF indtekst*(a)= "" THEN 2930 ELSE P 

RINT4ud,TAB(40)5indtekst*(a>i:PRINT4ud,T 

AB(63)5USING"444444.44"5 indsum(a):GOTO 2 

990 

2930 IF a=7 THEN PRINT4ud,TAB(40)i STRING 
*(32,"4")IGOTO 2990 

2940 IF a=8 THEN PRINT4ud,TAB(40)1 " INDTC 
GTER *5:PRINT4ud,TAB(63)5USING"444444.44 
"i»ndsum:GOTO 2990 

2950 IF a=9 THEN PRINT4ud,TAB(40 ) |"UDGIF 
TER "5:PRINT4ud,TAB(63)5USING"444444.44" 

5 udsum:GOTO 2990 

2960 IF a=10 THEN PRINT4ud,TAB(40)5STRIN 
G*(32,):GOTO 2990 

2970 IF a=11 THEN PRINT4ud,TAB(40)5"OVER 
/UNDERSKUD “5:PRINT4ud,TAB(63);USING"444 
444.44"!indsum-udsum:GOTO 2990 
2980 IF a=12 THEN PRINT4ud,TAB(40 ) 5STRIN 
G*(32,"="):GOTO 2990 

2990 NEXT a:IF ud=8 THEN PRINT48:PRINT48 
ELSE GOTO 3000 

3000 LOCATE41,20,20:PRINT41,*(P)rint (M 
).enu 

3010 q*=UPPER* ( INKEY*):IF q**“P" THEN ud 
=8:L0CATE41,20,20:PRINT41,SPACE*(40):GOS 
UB 3020:GOTO 2890 ELSE IF q*="M" THEN ud 
*1:GOTO 1300 ELSE GOTO 3010 
3020 IF pr=0 THEN 2150 ELSE RETURN 
3030 L0CATE41,20,20:PRINT41,"DER ER IKKE 
TILSLUTTET PRINTER ":FOR a=l TO 

2000*. NEXT :ud = l: GOTO 3000 
3040 FOR a=l TO 15:udsum(a)=0:FOR d=l TO 
12 

3050 udsum(a)=udsum(a)+VAL(ud*(a,d)) 

3060 NEXT d,a 

3070 FOR a=l TO 6:indsum ( a > =0:FOR c=l TO 
12 

3080 indsum(a) =indsum(a)*VAL(ind*(a,c)) 
3090 NEXT c,a 
3100 RETURN 

3110 udsum=0:FOR a=l TO 15:udsum=udsum*u 
dsum(a):NEXT 
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3120 i ndsum=0: FOR a=l TO 6: i ridsum= i ndsura 
* i ridsom lal : NEXT 
3130 RETURN 

3140 IF ERR=28 THEN CLS#1:PR INT#1,TAB 141 
i "DER ER IKKE NOGEN DISKETTE TILSLUTTET" 
:FOR a=l TO 30001NEXT:RUN 

3150 CLS#1:PRINT#1,*FEJL I LINIE * iERL1F 
OR a=1 TO 3000:NEXT:RESUME 1300 



En lille forårshilsen 

Fra en af Amstrad-bladets læsere, Edmund Hansen i 
Odense, har vi på redaktionen modtaget denne lille 
hilsen, som vi synes, alle Inputs nye læsere også 
skulle nyde godt af - det er ment til at lave postkort til 
moster Anne med dette lille program. 

2 REM “FORAAR" 

4 CLS 

6 FOR b=l TO 640 STEP 13+RND44) 

8 FOR c=l TO RND*75 

10 ORIGIN 1,1:PLOT b , c : NEXT : NEXT 

12 FOR a=1 TO 20 : d=RND*640 

14 FOR F = 1 TO RND*275 

16 ORIGIN 1 , 1:PLOT d, ♦ : NEXT 

18 FOR g=10 TO F*0.4 STEP 8 
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20 h=20+RND*30 
22 ORIGIN d,l+g 
24 DRAM h,g 
26 ORIGIN d,l+g 
28 DRAM -h,g:NEXT 
30 1=F/ 10 

32 FOR k=l TO 36ø STEP 15:DEG 

34 ORIGIN d,e+F:DRAW 1*COS(U),1*SIN(k):N 

EXT 

36 FOR n=l TO 35 

38 o=INT IRND*5)♦1 

40 LOCATE n,6-o:PRI NT CHR*I208) 

42 LOCATE r.,6-o:PRINT CHR*(128) 

44 NEXT:NEXT 
46 FOR p=l TO 3 
48 DEG:q=INT(RND*550 >*1 
50 r=60 

52 FOR s=l TO 180 STEP 5 

54 ORIGIN q,1 

56 DRAW r*COS(s),r*SIN(s» 

58 NEXT 

60 SYMBOL AFTER 90:SYMBOL 100,255,199,12 
9,129,135,207,239,255 

62 LOCATE (q/16)+3,25:PRINT CHR*(143)+CH 
R*(213)+CHR*I 246) 

64 LOCATE (q/16)+3,24:PRINT CHR*(10ø)+CH 
R*(215) 

66 NEXT 

68 FOR t=l TO 2000:NEXT:GOTO 4 













Discutilities 

Her har du et lille hjælpeprogram, specielt egnet for 
464 med diskettestation. 664 og 6128. 

Læg programmet på alle dine disketter og kald det 
evt. ,.DISC“\ Når du så lægger disketten i compute¬ 
ren. køres dette program som det allerførste. 

Du har følgende muligheder: 

1. Directory. Dette giver dig en normnal oversigt 
over. hvad der er på disketten, men ud for hver fil 
er der et nummer. Du behøver nu blot at indtaste 
nummeret for at starte et program. Hvis f.eks. 
program nummer 5 hedder „regnskab.bas“, tryk¬ 
ker du blot på '5\ og programmet loader og starter 
op. 

2. Dette punkt giver dig en mere detaljeret oversigt 
over programmerne. Rutinen er i øvrigt blevet 
bragt separat i Amstrad-bladet flere gange. Ellers 
gælder nogenlunde de samme bemærkninger som 
ved punkt 1. Et tryk på enter vil standse listningen 
og returnere dig til hovedmenuen. 

3. Er den almindelige DIR rutine (svarer til :DIR). 

4. Slet fil - beder selv om filnavn. 

5. Omdøb fil - beder selv om nyt og gammelt fil¬ 
navn. Et tryk på ENTER begge steder bringer dig 
tilbage til hovedmenu 

6. Skift farver. Normalt kun nødvendigt ved grøn 
skærm. 

7. Skift til CP/M. 

Ved punkterne 3 og 5 er det muligt at anvende de så¬ 
kaldte „Wildcars'L dvs. spørgsmålstegn og stjerne 
som normalt. 

Programmet er ret let at ændre til printerudskrift - 
det kan være praktisk at kunne se, hvad der ligger på 
de enkelte disketter med alle detaljer. 

10 REM **************************** 

20 REM ***** Diskette program ***** 

30 REM ***** DIR ♦ ERA ♦ REN ***** 

4ø REM ***** JKT. 0Z1KSD. ***** 

50 REM ***** VER 1.2. ***** 

60 REM **************************** 

65 INK 0,13:INK l,0:BORDER 13 
70 MEMORY 42619 
80 hukomme 1 se=42619 
90 MEMORY 19999 
100 REM 

110 REM ***** Variabler ***** 

120 REM 

130 DIM +11*199) : • Lagrer dir i FIL*(X 
) max 99 +i ler. 

140 tekst*="Diskette bruger program "+CH 
R*(164)+" JKT. Data. Skagen, d.15/2-1986 

150 REM 

160 REM ***** Maskin kode til dir runtin 
e 

17ø REM ***** LD de,25000 adresse paa bu 
tfer 


180 REM ***** CALL BCB9 DIR rutine. 

190 FOR i=20000 TO 20006 

200 READ a* : POKE i , VAL("fe* ♦«*! 

210 NEXT 

220 DATA 11,a8,61 , cd,9b, bc , c9 

230 REM ***** Maskin kode til avanceret 

dir rutine 

240 REM ***** kopi +ra Arnstrad bladet. 
250 FOR x=kA475 TO kA491 
260 READ 2 :POKE x,z 
270 NEXT 

280 DATA k06,0,l<21,0,0, Wil ,k40,k9c, kcd.k 
77, kbc, Sted , k53 , kdc , k9b, ked , k43 , kde, k9b, k 
32,keø,k9b,k22,kel,k9b,ked,k7a, kbc , kc9 
290 REM 

300 REM ***** Hoved menu ***** 

310 REM 

320 MODE 2:PRINT CHR*<7); 

330 PRINT TAB ( 10)J tekst* 

340 LOCATE 26,5:PRINT"H OVED MENU 

350 LOCATE 26,6:PRINT STRING*(20,216) 

Dir 1. 

Dir 2. 

Dir normal. 

Rename +i 1. " 

Erase +11. 

Ski+t +arver. 

Ski+t til CP/M. 

430 LOCATE 26,23:PRINT * Funkti on (1-7) ?* 
440 val g*= " " : WHILE valg*=“" OR INSTRC12 
34567",valg*)=0:va1g®=INKEYS:WEND 
450 WINDOW 1,80,4,24:CLS 
460 UIND0UM2,1,80,25,25 

470 IF valg*="1“ THEN over*="Dir 1." ELS 
E IF valg*="2* THEN over*="Dir 2.” ELSE 
IF valg*="3" THEN over*="Dir normal." EL 
SE IF valg*="4* THEN over*=“Rename +il." 

ELSE IF valg*= "5" THEN over*="Erase +il 
.“ ELSE IF valg*="6" THEN over*="Ski+t + 
arver * 

480 PRINTttl: PRINTMI: PR I NT Hl, TAB ( <72-LEN< 
over*)) / 2 >jover*| 

490 ON VAL(valg*) GOTO 530,530,1020,1080 
,1180,1290 

500 PRINTH2,"Er du sikker paa at du vil 
over i CP/M. (j/n) ?" 

510 a*=" * :WHILE a*="" OR INSTR( " jJnN”,a* 
)=0:a*=INKEY*:WEND 

520 IF a*="J " OR a*="j ■ THEN 1CPM ELSE G 
OTO 320 
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530 REM 

540 REM ***** Dir 1. Simpel dir. 

550 REM 

560 FOR i %= 1 TO 99: f i 1*(i%> = '“ :NEXT i% 
570 WINDOW l,l,l,l:PEN 0 

580 CALL 20000 : ’ Nu skulle directory 1 
igge fra 25000 og 2k. frem. 

590 WINDOW 1,80,4,24:PEN 1:CLS 
600 ZONE 20 
610 x%=l 

620 start%=25001 

630 IF PEEK(start%)=0 AND PEEK(start%+l> 
=0 THEN 730 

640 FOR r%=start% TO startll+10 

650 ti 1*(x%)=fi 1* < x%)+ CHR*(PEEK(r%)> 

660 NEXT r% 

670 a*=LEFT*ttil*(x%>,8)'+RIGHT*(fi 1* 
<x%),3) 

680 ti 1* ( x%)=a» 

690 IF VAL(val g*)=2 THEN GOSUB 800 : * A 
vanceret dir rutine 

700 IF VAL (valg*) = l THEN PRINT USING'##= 
■jx%; :print ti i*<x%>, 

710 x%=x%+l:start%»start%+14 
720 GOTO 630 
730 REM 

740 REM **** At laes tastetur. ENTER=menu 

750 REM 

760 PRINT CHR*(7)S 1INPUTH2,"Indtast numm 
er paa det program du vil starte (ENTER= 
MENU) "}programnr* 

770 IF programnr%=0 THEN GOTO 320 !’ Hov 
ed menu. 

780 MEMORY hukommelse 
790 RUN ti 1*(programnr%) 

800 REM 

810 REM ***** Lav udskrift filen + dive 
rse oplysninger om den 
820 REM 

830 apos=@a*:b=LEN(a*) 

840 1=PEEK ( apos+2):h=PEEK(apos+1) 

850 POKE l<A476, b: POKE WA478, h: POKE WA479 
.1 

860 CALL 42101 

870 ha=PEEK(39906)»256+PEEK(39905) 

880 filetype=PEEK(39904) 

890 filelength=PEEK(39903)*256+PEEK<3990 

2) 

900 1oadaddr=PEEK(39901)»256+PEEK(39900) 
910 total 1 ength=PEEK ( ha + 25 > *256+PEEK (ha+ 
24) 
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920 execaddr=PEEK< ha + 27)*256+PEEK(ha+26) 
930 IF x%<10 THEN t*=' ■♦STRS(x%) ELSE t 
*=STR*(x%> 

940 skriv*=“ ! * +1*+ * =" + a*+ 11 i Load= " +HEX* ( 1 
oadaddr,4)+"!Start=’+HEX*(execaddr , 4)♦“! 
Laengde="+HEX*(tilelength,4)+ *!Slut = ”+HE 
X*( 1 oadaddr +fi lelength,4)♦"!Type=-*HEX*( 
ti letype,2) 

950 type*="" 

960 IF ti 1etype=0 THEN type*=" S. Basic 
! ’ 

970 IF filetype=l THEN type*=" P. Basic 

i ‘ 

980 IF t i 1etype=2 THEN type*=* Maskin 
i • 

990 IF fi 1etype=22 THEN type*=" ASCII 
1 * 

1000 IF LEN(type*)=0 THEN type*=* Ukendt 
1 * 

1010 skriv**skriv*+type*:PRINT skriv*} 

1011 a*»INKEY*:IF a*=CHR*(13) THEN 760 

1012 RETURN 

1020 REM **** Almindelig dir rutine med 
betignelser 

1030 GOSUB 1040:GOTO 1060 

1040 CLS:CLS#2:INPUT#2,"Indtast betingel 

ser (*?) *;para* 

1050 DIR ,@para»: RETURN 
1060 PRINTH2,“Tryk <ENTER> for menu.* 
1070 WHILE INKEY*< >CHR*(13):UEND : GOTO 32 
0 

1080 REM ***** Rename fil 

1090 GOSUB 1040 : ’ Dir rutine 

1100 INPUTW2,"Indtast gammel navn paa ti 

1 *;gammel* 

1110 INPUTH2, "Indtast nyt navn paa fil " 
i ny* 

1120 PRINTH2, CHR* (7) } gamme1*" skifter na 
vn til -{ny*}*!!! Ok (j/n) ?*} 

1130 a*= " • : WHILE a*=“-:a**=INKEY*:WEND 
1140 IF a*=“n" OR a*='N- THEN 320 
1150 IF a*=*j* OR a*= * J * THEN 1160 ELSE 
1120 

1160 !REN, Øny*,Øgammel* 

1170 GOTO 320 

1180 REM ***** Slet en f i 1 **** 

1190 GOSUB 1040 

1200 INPUTH2,'Indtast navn paa den fil d 
er skal slettes <ENTER=MENU> '}slet* 

1210 IF slet*='' THEN 320 

1220 PRI NT* 2, s 1 et* * bliver slettet !!! 

Ok (j/n) ? 
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1230 a*= ”* :WHILE a*= *” : a*= INKE Y*:UEND 
1240 IF a*= ” n " OR a*=“N" THEN 320 
1250 IF a*=■ j“ OR a*="J" THEN 1270 
1260 GOTO 1230 
1270 !ERA, Øs let* 

1280 GOTO 320 

1290 REM **** Skift tarver 

1300 tarve1=0: farve2=13: farve3=13 

1310 LOCATE 30,5:PRINT"1 -> Skritt 

1320 LOCATE 30, 7 :PR I NT”2 -> Paper 

1330 LOCATE 30,9:PRINT*3 -> Border 

1340 LOCATE 30,11:PRINT"4 -> Normal 

1350 LOCATE 30,13:PRINT*5 -> Slut 

1360 LOCATE 30,15:PRINT ■ Tryk tast" 

1370 a*=INKEY* 

1380 IF aS=■1 ■ THEN tarvel=tarvel+1:IF t 
arvel=26 THEN tarvel=0 

1390 IF a*=" 2 " THEN farve2=farve2+1:IF t 
arve2=26 THEN tarve2=ø 

1400 IF a*="3" THEN farve3=farve3+l:IF f 
arve3=26 THEN tarve3=0 

1410 IF a*=*4" THEN tarvel=0:tarve2=13:t 
arve3=13 

1420 IF a*="5" THEN 320 

1430 INK 1,tarvel:INK 0,farve2:BORDER ta 
rve3 

1440 GOTO 1370 



Restskatteberegning 

Hermed et program, der gør dsig i stand til at beregne 
restskatten for skatteåret 1985. Måske ikke så aktuelt 
lige nu (det er jo nærmest for sent), men programmet 
indeholder mange beregningseksempler, som skulle 
gøre det muligt for dig selv at ændre de aktuelle tal 
for årene fremover. 

Programmet er selvforklarende. Du skal have din 
selvangivelse ved hånden, når du starter programmet 
op, og til slut får du mulighed for at få alle tal printet 
ud. Lad os håbe. at du ikke bliver chokeret, når'facit' 
kommer til syne. 


10 ’ Programmeret af: 

aursen 

20 ’ Senest fndret: 100186 

30 ’ Programnavn: RESTSKA 

T 

40 ’ 

50 ’ 

60 GOSUB 10000 • Programstart 

70 MODE 2:BORDER 1:INK 0,1:INK 1,24:CLE 

AR 

80 PRINT • ******* 

************** 

90 PRINT ■ * BEREGNI 

NG AF RESTSKAT FOR 1985 * 

100 PRINT * ******* 

************** 
liø print:print 

120 INPUT "Beregningen udf!res tor . 

... : ",navnS 


130 INPUT "Dato for beregning . 

... : ",dato* 


140 PRINT:PRINT "BEREGNINGSGRUNDLAG (HEL 
E KR.): 

150 INPUT * Skattepligtig indkomst ... 

. "Jsi:si=INT(si/l001*100 

160 INPUT " Skattepligtig formue . 

. "}skf 


170 INPUT 


180 INPUT 


Indeholdt A-skat . 

" i as 

Frivilligt indbetalt skat 


190 INPUT 
onfradrag 
200 INPUT 


210 INPUT 


"Jfrisk 

Skattemtssig vtrdi af pers 
■1P* 

Kommuneskatteprocent ..... 
"»kop 

Kirkeskatteprocent . 


220 INPUT 


* i k i p 

Amtsskatteprocent 

* J amtp 


230 

+ 

GOSUB 

1000 

’ Beregning 

af statsska 

240 

GOSUB 

2000 

’ Beregning 

af kommunes 

kat 

m. v. 




250 

GOSUB 

3000 

’ Beregning 

af formuesk 

at 





260 

GOSUB 

4000 

• Udskrift af beregning 

P> 

sk < rm 




270 

GOSUB 

5000 

• Udskrift af beregning 

P> 

pr inter 



280 

GOSUB 

6000 

’ Flere beregninger ? 

290 

CLS:BORDER 

1:INK 0,1:INK 

1,24: NEW. EN 
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300 • 

lf?eø ' *** Beregning af statsskat *** 
lølø TF s i<11 1 301 THEN s tat=INT (s i*19. 9) 
/100 

1023 TF s i>111300 AND si<182601 THEN sta 
t = INT(11602 7* !si-111300) *0.288*5 i *0.055) 
* 100 )/ 100 

1030 IF s i>182600 THEN stat = 1 NT (( 36561♦( 
si- 182600) *0.396+si*0.055)*100)/100 
1040 RETURN 
1050 1 

2000 ’ *** Beregning a+ kommuneskat *** 
2010 kpct=kop*kip+amtp:kom=INT(si*kpct) / 
100 

2020 RETURN 
2030 ' 

3000 ' *** Beregning af -formueskat *** 
3010 IF skf<1229201 THEN RETURN 
3020 *orm=INT (( skt - 1229200)*0.022*100 )/I 
00 

3030 RETURN 
3040 • 

4000 ' *** Udskrift af beregning p> skir 
m *** 

4010 fs=stat*kom+form-pf : IF fs<0 THEN ts 
=ø 

4020 rest=INT(fs-as-frisk)JCLS 
4030 BORDER 0:INK 0,01 INK 1,6 
4040 PRINT * BEREGNING AF 

RESTSKAT FOR 1985 
4050 PRINT 

4060 PRINT “Dato: “S dato*;* 

Beregnet for: * i navn* 

4070 PRINT:PRINT “BEREGNINGSGRUNDLAG:" 


4080 PRINT 

m 

Skattepligtig indkomst .. 

NN“;si 

4090 PRINT 

• 

Skattepligtig formue .... 

NN“i skt 



4100 PRINT 

« 

Betalt A-skat og friv.ska 

♦ . 



NN";as+tri sk 


4110 PRINT 

■ 

Skattemissig vtrdi af per 

sonfradrag 

*#“;pf 



4120 PRINT 

■ 

Kommuneskatteprocent .... 

ti “; kop 

4130 PRINT 

■ 

Kirkeskatteprocent . 


** “; k i p 

16 . 


4140 PRINT “ Amtsskat teprocerit . 

. ", USING “»##*#####. 

II “ S amt p 

4150 PRINT “BEREGNING AF RESTSKAT:* 

4160 PRINT * Statsskat . 

. *, USING “*,***,**».**■!stat 

4170 PRINT " Kommuneskat m.v . 

. ", USING “N.NNN, «««.««“ S kom 

4180 PRINT “ Formueskat . 

. ",USING “N.NNN,NNN.NN* i form 

4190 PRINT “ Skat ialt . 

. “.USING “N.NNN,HNH. 

NN";stat*kom*form 

4200 PRINT “ Skattevirdi af personfrad 

rag . “, USING “N,NNN,NNN. 

•#“ipf 

4210 PRINT “ Beregnet faktisk skat ... 

. “,USING “N.NNN,NNN. 

NN“Jfs 

4220 PRINT “ Betalt A-skat og friv. sk 

at . ",USING “N,NNN,NNN. 

NN* ; as*f r i sk 

4230 IF rest >=1 GOTO 4270 

4240 PRINT:PRINT "OVERSKYDENDE SKAT .... 

. “.USING “N.NNN,NNN. 

NN “ ,rest*(-1):PRINT 

4250 GOSUB 7000 ’ Lyd: Oversk. skat 

4260 RETURN 

4270 PRINT:PRINT “RESTSKAT . 

. “,USING “N,NN 

N,NNN.NN“1 rest 

4280 GOSUB 8000 ' Lyd: Restskat 

4290 PRINT:RETURN 
4300 * 

5000 ’ *** Udskrift af beregning p) pr in 
ter *** 

5010 PRINT “Sksi beregningen udskrives ( 
J/N) ?“ 

5020 suS-INKEY*:IF su**““ GOTO 5020 

5030 su*-UPPER*(su«) : IF su*0“J“ AND su* 

< > “N* THEN PRINT “Der skal tastes ’J’ el 

ler ’N*. Pr ! v igen !“:GOTO 5020 

5040 IF suS=*“N“ THEN RETURN 

5050 PRINT N8,CHR*(30):PRINT S8,CHR*(27> 

♦CHRS(54) 

5060 PRINT N8, “ ******* 

************** 

5070 PRINT N8, “ * BEREGNIN 

G AF RESTSKAT FOR 1985 # 

5080 PRINT *8, “ ******* 

************** 

5090 PRINT *8:PRINT *8:PRINT *8 
























5100 PRINT »8, “Beregning at restskat to 

MM,MMM.MM"; rest *( - 1>: PRINT:RETURN 

r .. : “i navnt 

5300 PRINT M8:PPINT M8, "RESTSKAT . 

5110 PRINT MS, “Dato tor beregning . 


. : “idatot 

G “M.MMM,MMM.MM"5 rest 

5120 PRINT MB:PRINT M8:PRINT *8, "BEREGN 

5310 PRINT:RETURN 

INGS6RUNDLAG:” 

5320 ’ 

5130 PRINT M8, " Skattepligtig indkoms 

6000 ’ 4*4 Flere beregninger 7 444 

t . “,USING "M.MMM, 

6010 PRINT "\nskes tiere beregninger (J/ 

MMM.MM“;si 

N) ?" 

5140 PRINT M8, “ Skattepligtig tormue 

6020 sbS=INKEY»:IF sb*=“” GOTO 6020 


6030 sb*=UPPER*(sbS) : IF sbSO'J" AND sb* 

MM#.MM"i skt 

O-N" THEN PRINT "Der skal tastes "J" el 

5150 PRINT M8, ’ Betalt A-skat og triv 

ler -N’. Prlv igen !":GOTO 6020 

.skat . “,USING “M.MMM, 

6040 IF sb*="J" GOTO 70 

MMM.MM"ias+trisk 

6050 CLS:MODE 1:BORDER 0,6:L0CATE 11,12: 

5160 PRINT M8, ■ Skattemlssig vlrdi at 

PRINT "PROGRAMMET SLETTES !■ 

persontradrag . ",USING ”M,MMM, 

6060 FOR t=l TO 4000:NEXT t 

MMM.MM";pt 

6070 RETURN 

5170 PRINT M8, * Kommuneskatteprocent 

6080 1 

. ",USING "MMMMMM 

7000 ’ 444 Lyd til oversk.skat 444 

MMM.M*}kop 

7010 FOR n=l TO 7 

5180 PRINT M8, * Kirkeskatteprocent .. 

7020 READ p 


7030 SOUND 1,p,20,7 

MMM.M*;kip 

7040 NEXT n 

5190 PRINT M8, * Amtsskatteprocent ... 

7050 SOUND 1,119,50,7 

. ",USING “MMMMMM 

7060 DATA 119,95,80,60,80,95,119 

MMM.M";amtp 

7070 FOR t«l TO 1500:NEXT 

5200 PRINT M8:PRINT M8:PRINT M8, "BEREGN 

7080 RETURN 

ING AF RESTSKAT:* 

7090 • 

5210 PRINT M8, " Statsskat . 

3000 * 444 Lyd til restskat 444 


8010 FOR p=150 TO 250 

t 

8020 SOUND l,p,2,15,0,0,0 

5220 PRINT M8, " Kommuneskat . 

8030 NEXT p 

. ",USING "M,MMM,MMM.MM"1 kom 

8040 ENV 1,50,15,30 

5230 PRINT M8, " Formueskat . 

3050 SOUND 1,27,500,1,1 

. “.USING *M,MMM,MMM.MM"iFOR 

8060 FOR t=l TO 1500:NEXT 

m 

8070 RETURN 

5240 PRINT M8, " Skat ialt . 

8080 * 


9000 ’ 444 Tegn kasse 444 

MMM.MM*}stat+kom*torm 

9010 PLOT tlx.tly 

5250 PRINT M8, " Skattevlrdi at person 

9020 DRAW brx.tly 

tradrag . ",USING "M,MMM, 

9030 DRAW brx.bry 

MMM.MM"1pt 

9040 DRAW tlx.bry 

5260 PRINT M8, " Beregnet taktisk skat 

9050 DRAW tlx.tly 


9060 RETURN 

MMM.MM"5 ts 

9070 ’ 

5270 PRINT H8, " Betalt A-skat og triv 

10000 ’ 444 Programstart 4** 

. skat . ".USING "M,MMM, 

10010 CLS:MODE 1:ti te 1*="SKATTEBEREGNING 

MMM.MM";as+trisk 

■ 

5280 IF rest >=1 GOTO 5300 

10020 tlx-Ø:tly-398:brx-639:bry=l 

5290 PRINT M8:PRINT M8, "OVERSKYDENDE SK 

10030 GOSUB 9000 • 444 Tegn kasse 444 


10040 tlx=10:tly=388:brx=630:bry=l1 
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10050 GOSUB 9000 ■ *** Tegn kasse *** 

10060 PEN 3:BORDER 6:LOCATE 13,12:PRINT 
titel* 

10070 PEN l:LOCATE 9,20 

10080 PRINT ‘Tryk en tast Tor start !" 

10090 z*=INKEY*:IF z*=*" THEN 10090 

10100 RETURN 

10110 



I 

Han tabte sine penge 
på krikkerne... 

Efter at man fra statens side har nedskåret mulighe¬ 
den for at vinde en million på hestene, iler INPUT 
med at bringe errstatningen: Et gedigent V6 spil, som 
kan spilles derhjemme i dagligstuen. 

Det gælder naturligvis om at gætte den rigtige V6- 
kombination. Du starter din dag på travbanen med 
den formidable som af 25 kr. Inden aften skulle disse 
penge jo gerne have ynglet mange gange (du skal jo 
hjem og forklare 'lillemor*, hvordan dagen er gået. 

Der er en kort forklaring i indledningen af spillet, 
blot skal nævnes, at hvis du ønsker at tippe på 1 hest 
i et løb, skal du trykke samme nummer 2 gange ved 
pågældende løb. 

HELD OG LYKKE! 

100 ’ Copyright: Comic Polterabend SoTtw 
are. 

101 ’ Programmed By : HENRIK GEORG S\REN 
SEN. 

102 ’ Version : 22. April 1986. 

103 ’ 

104 ’ Dimensionering AT Variabler b Opst 

18. 


art Routine. 

105 SYMBOL AFTER 256:MEMORY 38399:SYMBOL 
AFTER 91 

106 DIM hyp%( 12,6 ) , piads% < 12),r aek% ( 12), 
col%<14,11 


107 DIM v6gaet%(6,2),tael1er%(12):GOSUB 
267 

108 ’ 

109 ' V6 Spillet (Game). 

110 MODE l:GOSUB 255 

111 PRINT "HEST V6’s Game program...■:PR 
I NT 

112 PRINT " I dette spil skal du prlve 
at g(tte" 

113 PRINT " den rigtige V6-kombi nat i on. 
Det bel!b" 

114 PRINT " du har til din rldighed er 2 
5 kr., og" 

115 PRINT " 1 r{kke koster 1 kr. Du har 
mulighed * 

116 PRINT " Tor at tippe p> 2 heste i h 
vert 1 ib," 

117 PRINT " dog m) kuponprisen ikke over 
stige dit" 

118 PRINT " r)dighedsbe1!b. V6-spillets 
sandsyn-* 

119 PRINT * lighed bygger p) det rigtige 
V6-spi1,* 

120 PRINT " samt en blanding aT tilTtldi 
ge numre.* 

121 PRINT 

122 PRINT "Spar penge tip p> HEST V6’s s 
pi 1 program" 


123 LOCATE 1,24:PRINT "Tryk p) en tast." 
:CALL bBB18 

124 CLS:GOSUB 2551L0CATE 5,10:INPUT "Vtl 
g svtrhedsgrad (1-10) ".svaerX 

125 IF svaer%<1 OR svaer%>lø THEN 124 

126 MODE i:PEN l:PAPER 3:PRINT reklame*! 
l)j:PRINT reklame*(2)1:PAPER 0 


127 GOSUB 139:GOSUB 156:GOSUB 192:GOSUB 
220:IF beloeb%<=0 THEN 132 

128 CLS 41: LOCATE til , 2,4: PRINT Al,"\nske 
r Du et nyt Torsig" 

129 LOCATE 41,2,5:PRINT 01,"pi at T) gev 
inst ?" 

130 hgs*=UPPER*( INKEY*) : IF hgstO'N" AND 
hgs*< >" J’ THEN 130 

131 dummy%=REMAIN < 3) :weektip%=l:IF hgs*= 
•J* THEN 127 ELSE GOSUB 252:G0T0 136 

132 CLS 01:LOCATE 01,2,3:PRINT 01,"Du ha 
r ikke Tiere penge, men"; 






133 LOCATE #1, 2,4 :PRINT #1,‘travbanen ta 
kker dig -for dir.-; rLOCATE »1,2,5 

134 PRINT »l,"st!tte til hestesporten 
!<“; ILOCATE »1,2,6 

135 PRINT Ml, “der. danske statskasse. 

. . "IrCALL kBB18 

136 PAPER ø: PEN lrCALL l<BC02: MODE 2: END 

137 ‘ 

138 1 Sklrrn-Game. 

139 BORDER 9:INK 0,12:INK l.ØrINK 2,3:IN 
K 3 ,23:WINDOW »1,1,31,16,24 

140 PAPER »1,2:PEN »1,3:CLS »IrGOSUB 143 
‘.RETURN 

141 ’ 

142 ’ Udskriv Resultat Tavlen. 

143 LOCATE «1,1,1:PRINT «1, ser een*(1)5:L 
OCATE M1,1,2:PRINT »1,screen* (5) 

144 FOR hgsX=l TO 3:LOCATE »1,1,2*hgsX*l 
:PRINT »1,screen* (3) ; 

145 LOCATE »1,1,2*hgsX*2:PRINT »1,screen 
*<2);rLOCATE »1,2,2*hgsX+2 

146 PRINT »l.hgsX;rLOCATE »1,17,2*hgsX+2 
:PRINT Ml,hgsX+3;rNEXT hgsX 

147 LOCATE »l,l,9rPRINT »1,sereen*(4 1 5rR 
ETURN 

148 ’ 

149 ‘ Begynd V6. 

150 WINDOW 1,40,3,14rCLSrWIND0W 1,40,1,2 
5 

151 FOR nr%=l TO 12rLOCATE 1,nrX+2: PEN 1 
: PRINT USING ■ t<* i hest* (ta 1%) ; 

152 p1adsX < nrX)=1r r aekX(nr%)=nrX+2:NEXT 
nrX 

153 RETURN 

154 ’ 

155 ’ G(t. 

156 WINDOW »2,32,40,16,24rPAPER »2,3rPEN 
»2, 2 r GOSUB ISØrPEN 1 

157 IF weektipX=l AND pr isX<=be1oebX THE 
N GOSUB 184rGOTO 178 

158 pr i sX=1r FOR loebX=l TO 6r FOR tipnrX= 
1 TO 2 

159 CLS »2r LOCATE »2,2,2rPRINT »2,USING 
■Libr »";loebX 

160 LOCATE »2,2,4 r PRI NT »2,USING ‘Tip: » 
“itipnrX 

161 v6vindX ( 1oebX)=0:v6gaetX<loeb%,tipnr 
X)=0r LOCATE »2,2,6:PRINT »2,*G<t:*» 

162 INPUT »2,’“,gået*:v6gaet% ( 1oebX,tipn 
rX)=UAL<gaet*) ‘.PRINT *2,CHR*(7) ; 

163 IF vogaetX(1oebX,1)<1 OR v6gaetX(loe 
bX,tipnrX)>12 THEN 159 


164 IF tipnr %= 1 THEN 165 ELSE 167 

165 IF loebX<=3 THEN LOCATE M1 , 7 ,2*1 oebX 
♦2 ELSE LOCATE »1,22,2*(1 oebX-3) »2 

166 PRINT »1,USING " M»“ ; v6gaetX( 1 oebX,1) 

167 NEXT t i pnr X: IF v6gaetX<1 oebX ,2) =0 TH 
EN 173 

168 IF v6gaet%(1oebX, 1)<v6gaet%(1 oebX,2) 
THEN 171 

169 IF v6gaetX(1 oebX,1> = v6gaetx( 1oebX, 2) 
THEN v6gaetX ( loebX, 2) =0:GOTO 173 

170 chX=v6gaetXIloebX,1):v6gaetX(loebX,1 
1 =v6gaetX(loebX,2i : v6gaetX ( 1oebX,2)=chX 

171 IF 1 oebX<=3 THEN LOCATE »1,6, 2*1 oebX 
♦2 ELSE LOCATE » 1 , 21 ,2*t 1 oebX-3 ) *2 

172 PRINT »1, USING *«» »#’; v6gaetX(1oebX 
, 1) ,v6gaetXtloebX,2) 

173 IF v6gaetX(loebX, 2) >0 THEN prisX=2*p 
r isX 

174 NEXT loebX 

175 IF pr i sX< =be1oebX THEN 178 ELSE CLS 
»1 :PRINT *1 

176 PRINT »1,- Prisen for din kupon*:PRI 
NT »1,* overstiger din formue.* 

177 PRINT »1,* Indtast ny kupon •*:tidX= 
2500: GOSUB 240: GOSUB 143:GOTO 158 

178 CLS M2:L0CATE »2,1,3:PRINT »2,- Ok ? 
■ 

179 hgs*=UPPER*<INKEY*):IF hgs*<>"J* AND 
hgs*< >“N* THEN 179 

180 LOCATE »2,3,5:IF hgs*=’N” THEN PRINT 
»2, ■Nej " ;: GOSUB 143:G0T0 158 

181 PRINT »2, * Ja” ;CHR* (7) t:tidX=1000: GOS 
UB 240 : be 1oebX=be1oebX-pri sX :RETURN 

182 ’ 

183 • Udskriv G(t I Weektip. 

184 FOR 1 oebX=l TO 6 

185 IF 1 oebX< =3 THEN yyX=2*loebX*2:*xX=6 
ELSE yyX=2*(loebX-3)*2:xxX=21 

186 IF v6gaetX(1oebX,2)=0 THEN LOCATE »1 
,XXX*l,yyX ELSE LOCATE »l,xxX,yyX 

187 IF v6gaetX<loebX,2)=0 THEN PRINT #1, 
USING • »# “ ;v6gaetX( 1 oebX,1 ) : GOTO 189 

188 PRINT »1,USING *»» »»■{v6gaetX( loebX 
,1),v6gaetX (1 oebX,2) 

189 NEXT 1oebX:weektipX=0:RETURN 

190 ' 

191 ’ Resultat. 

192 CLS »2:LOCATE »2,2,5:PRINT »2,*Belib 

• ■ • 

• » 

193 LOCATE »2,3,6:PRINT »2, USING ■»»»»»■ 
i beloebX; 

194 EVERY 15,3 GOSUB 237: FOR loebX=l TO 
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65 C-OSUB 150:GOSUB 213 

195 1F tal X=1 THEN maxtalX=72 ELSE maxta 
1X=74 

196 LOCATE »2,1,2:PRINT »2," L!b : •t: LO 

CATE »2,6,3:PRINT »2.USING ”«**» "SloebXS 

197 RAND0M1ZE TIME:t ilta1dX= INT(RND* (mak 
5%*(svaer%»12l)) *1 

198 IF t iltaldX<=maksX THEN rykX=PEEK<ad 
drv6 + t i 1 taldX*6+ loebX):GOTO 201 

199 rykX=<<tiItaldX-maksX) MOD 121+1UF 
hypXlrykX, loebVOØ THEN 201 

200 ti 11 a 1d%=INT t RND*maksX) +1 :rykX=PEEK( 
addrv6*ti 1 tal d%*6t loebX) 

201 IF udeX=rykX THEN 197 ELSE pladsXlry 
kX>=pladsX<rykX) +1 

202 DI: CALL scrol 1 addr , rykX+2: El :ON SO 12 
) GOSUB 243 

203 PEN IMF pladsX(rykX) <maxtalX THEN 1 
97 ELSE v6vindX< loebX)=rykX 

204 hgslX=v6vindX<loebX) : hgs2X= v6gaetX< 1 
oebX, 1) hgs3X=v6gaetX ( loebX, 2) 

205 IF hgslX< >hgs2X AND hgslXOhgs3X THE 
N SOUND 7,500,5,7 ELSE SOUND 7,15,10,7 

206 IF 1oebX< =3 THEN pi acX= 13:raekX=2*1 o 
ebX+2 ELSE p1 acX=28 : r aekX=2* (1 oebX-3 ) +2 

207 LOCATE » 1, p 1 acX,raekX: PRINT »l.USING 
"M»"!v6vindX(l oebX) 

208 IF loebX<>6 THEN ta1X=I NT(RND*6)♦1:I 
F talX<>2 THEN talX=l 

209 ti dX=25øØ: GOSUB 240:NEXT loebX 

210 RETURN 

211 ' 

212 ’ Udgiede Heste. 

213 udeX=INT(RND*25)+1:IF udeX>12 THEN u 
deX=0 

214 FOR nrX=l TO 12 

215 IF hypX(nrX,1oebX)=0 OR nrX=udeX THE 
N udgaaX=l ELSE udgaaX=0 

216 IF udgaaX=l THEN LOCATE 7,nrX*2:PRIN 
T "Hesten er udgiet at llbet." 

217 NEXT nrX: RETURN 

218 ’ 

219 * Gevinst. 

220 r igtigeX=0: gev instX=0:FOR loebX=l TO 
6 

221 hgslX=v6vindX( loebX):hgs2X=v6gaetX(1 
oebX,11 : hgs3X=v6gaetX( loebX,2) 

222 IF hgslX< >hgs2X AND hgslXOhgs3X THE 
N 224 ELSE ri gt i geX=rigtigeX+1 

223 gevinstX=gevi nstX+INT( ( maksX-hypX < v6 
vindXfloebX) ,loebX) >/10> 

224 NEXT loebXtCLS #2:L0CATE *2,2,2:PRIN 
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T 42,"Antal : n :LOCATE »2,6,3 

225 PRINT »2,rigtigeX;:LOCATE «2,3,5:PRI 
NT »2.USING ; v61ogo*i 

226 IF rigtigeX<5 THEN GOSUB 246:GOTO 23 
4 

227 be1oebX=be1oebX+gevinstX:CLS »l:LOCA 
TE »1,2,2 

228 PRINT »l.USING "Belib : »»»» Gevin 
st : »»»«■ibeloebX.gevinstX 

229 LOCATE »1,5,4:PRINT »1,"V6 Vinder Ko 
tnb i nation : ■ 

230 hgslX=v6vindX<1):hgs2X=v6vindX(2):hg 
s3X=v6vindX(3):hgs4X=v6vindX(4) 

231 hgs5X=v6vindX(5):hgs6X=v6vindX(6>:LO 
CATE »1,7,6 

232 PRINT »l.USING •»»:»«:»»:»«:»»:#»■;h 
gslX? hgs2X;hgs3X;hgs4X{hgs5X;hgs6Xi 

233 GOSUB 259:INK 3,24,23:WHILE INKEY*=” 
*:wend:ink 3,23 

234 tidX=1000:GOSUB 240:RETURN 

235 ’ 

236 ’ Interupt Styring At Reklame*. 

237 DI:CALL scro11addr,1:CALL scrolladdr 
,25:El:RETURN 

238 * 

239 ’ Pause. 

240 FOR pauseX=1 TO tidX:NEXT pauseXlRET 
URN 

241 ' 

242 ’ Heste Lyd. 

243 SOUND 7,0,2,13:S0UND 7,0,4,0:RETURN 

244 * 

245 ’ Tabers Lyd. 

246 FOR hgsX-1000 TO 2500 STEP 10:SOUND 
7,hgsX,2:NEXT hgsX:RETURN 

247 ’ 

248 ' Vinders Lyd. 

249 FOR hgsX=50 TO 350 STEP 5:SOUND 7,35 
0,5:SOUND 7,hgsX,2:NEXT hgsX:RETURN 

250 ’ 

251 ’ Slut PI V6. 

252 FOR hgsX=100 TO 500 STEP 5:SOUND 7,h 
gsX,2:NEXT hgsX:RETURN 

253 1 

254 ’ Farver PI Paper k Pen 1. 

255 tarvX*(tarvX MOD 14)+1:INK Ø.colXtta 
rvX,0):BORDER coIX(tarvX,0) 

256 INK 1,colX(tarvX,1):PEN 1:RETURN 

257 ’ 

258 ’ Gevinst Illustration. 

259 GOSUB 150:WIND0W »3,13,38,3,14:INK 3 
,21:PAPER »3,3:PEN »3,2:CLS »3 





260 PRINT #3,C HR®1150) !STRING*(24,154) 5 C 
HR*(156);:FOR hgs%=2 TO 11 

261 LOCATE »3,1, hgs%:PRINT »3,CHR*(149)i 
!LOCATE »3,26,hgsX: PRINT »3,CHR* ( 149); 

262 NEXT hgsX:LOCATE »3,1,12:PRINT »3,CH 
R*( 147) ; STRING* (24,154)fCHR*( 153) 5 

263 FOR hgsX=l TO GEVINSTX*3: hgsxX=INT(R 
ND*24) +2: hgsyXMNT (RND*lø)*2 

264 LOCATE »3,hgsxX,hgsyX: PRINT »3,CHR*< 
224) i: NEXT hgsX:GOSUB 249:RETURN 

265 ’ 

266 ’ Opstart Rutine : Variabler k M/C. 

267 MODE 2:BORDER ØIPAPER 0:PEN 1:INK 0, 
26:INK 1,6: RESTORE:LOCATE 23,15 

268 PRINT ■PLEASE WAIT FOR DATA LOADING. 


269 ’ Co 1 ours . 

270 READ cps*:FOR hgsX=l TO 14:colX(hgsX 
, 0) =VAL(" k“ »MID*(cps*,4*hgsX-3,2) ) 

271 co1%(hgsX, 1 )=VAL t "k**MID*(cps*,4*hgs 
X-l ,2) >:NEXT hgsX 

272 ’ Rigth Scroll M/C. 

273 addr =38400:FOR hgsX=l TO 2:READ cps* 

274 FOR jklX=l TO LENIcps*) STEP 2:P0KE 
addr, VAL( “k"+MID*(cps*, jk IX,2) ) 

275 addr=addr♦1:NEXT jk IX,hgsX:scrol1add 
r=38400 

276 ’ Nye Karakterer. 

277 FOR hgsX=1 TO 44:G0SUB 312 

278 karakter*=back»:PRINT karakter*!:NEX 
T hgs%:SPEED WRITE 1 

279 ’ Variablen Screen*. 

280 FOR hgs%=1 TO 5:G0SUB 312:screen* ( hg 
sX) =back*:NEXT hgsX 

281 ’ Variablen Hest*. 

282 hest* (0) =CHR*(241)+CHR*(242)+CHR*(24 
3) 

283 FOR hgsX=l TO 2:GOSUB 312:hest* ( hgsX 
) =back*:NEXT hgsX 

284 • Variablen Cps*. 

285 FOR hgsX=l TO 4:G0SUB 312:cps*(hgsX) 
=back*: NEXT hgsX 

286 FOR hgsX= 1 TO 4:PRINT cps*(hgsX):NEX 
T 

287 ’ Variablen Op*. 

288 op*=CHR*( 31) *CHR*(1)»CHR* (25) »STRING 
* ( 2, 10) 

289 ' Variablen V61ogo*. 

290 FOR hgsX=1 TO 2:G0SUB 312:v61ogo*=v6 
logo*»back*:NEXT hgsX 

291 ’ Variablen Ind*. 

292 GOSUB 312: geo*=back*:FOR hgsX=l TO 4 


:GOSUB 312 

293 ind*(hgsX)=back*:NEXT hgsX:i nd*(1)=g 
eo*+ind* <1 ) 

294 ' Variablen Reklame*. 

295 FOR jklX=l TO 2: FOR hgs%=l TO 2:GOSU 
B 312 

296 reklame*! jklX) »reklame*(jk IX) »back*: 
NEXT hgsX, j k1X 

297 ’ Variablen Inddata*. 

298 GOSUB 312: i nddata*=back* 

299 ’ Introduktion Til Hest V6. 

300 FOR j k 1 X=1 TO 4:F0R hgsX=l TO LEN < in 
d*(J k 1X >) :LOCATE 1,18 

301 +rameX=4: GOSUB 316-.PRINT RIGHT*! ind* 

( j kIX),hgsX):NEXT hgsX 

302 FOR hgsX«1 TO 40- ( LEN ( ind*(jkIX)) / 2 > 

:CALL scrol laddr,18:+rameX=6:GOSUB 316 

303 NEXT hgsX:PRINT op*;CHR* ( 7 ) :NEXT jkl 
x:anX=0:addrv6=39000:PRINT inddata* 

304 READ hest*:IF hest*=*No More* THEN 3 
09 

305 FOR hgsX=1 TO ( LEN(hest*)/6>:anX=anX 
♦1:FOR loebX=l TO 6 

306 nrX=VAL(*k*»MID*(hest*,(hgsX-1)*6+1 o 
ebX,1) ) :POKE (addrv6+anX*6»loebX>,nrX 

307 hypX(nrX,loebX)=hypX(nrX,loebX)+l:hy 
pX(nrX,0)=>hypX<nrX,0) +l:NEXT loebX 

308 SOUND 7,2*anX,15,7:LOCATE 35.24:PRIN 
T USING ***»•JanX,:NEXT hgsX:GOTO 304 

309 maksX=anX:be1oebX=25:t a1X=INT < RND*2 ) 
♦l:RETURN 

310 ’ 

311 ’ String IndlCsning. 

312 a*= * *:READ cps*:FOR cpsX=l TO LEN(cp 
*•) STEP 2 

313 chX=VAL ( *k“ »MID*(cps*,cpsX,2 )) :a*=a* 
+CHR*(chX):NEXT:back*=a*:RETURN 

314 ■ 

315 1 Frame Pause. 

316 FOR nrX=1 TO PrameX:CALL kBD18:NEXT 
nrX:RETURN 

317 * 

318 ’ Farve Kombinationer. 

319 DATA 1a0606180102010b0c030a000915061 
al8060201ØbØ1030c000a1509 

320 ’ 

321 * Scroll *> M/C. 

322 DATA dd7e0026003d6Pcd1abc06087d322c9 
77c322d97114+00ed5a7e 

323 DATA 545d2bc5014t00edb8c123773a2d976 
73a2c976+cd26bclØd9c9 

324 * 
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325 ’ Danske karakterer. 

326 DATA 195b7ed8d8+ed8d8de00,195c7cc6ce 
d6e6c67cØø,195d38007cc6+ec6c600 

327 DATA 197b0000741a7ed86eØØ, 197c000076 
ccd666dcØø,197d3000780c7ccc7600 

328 • 

329 • V6 Logo. 

330 DATA 19c8595b584+27100+00,19c9454500 
+ + + + 00+ + 00,19ca48c800+ + + + 00+ + 00 

331 DATA 19cbe5a5ø0++++00++00, 19cc427600 
++++00++00,19cd484e00+tt+00++øø 

332 DATA 19ced0d0d09020408000, 19c+0+ 1027 
4+585b5a5b, 19d0++00++++00755575 

333 DATA 19d 1 ++00++++ØØØeØaøe, 1 9d2++00+♦ 
++0045e5a7,19d3+ +00++++00764466 

334 DATA 19d4++00++++0øee484c ,19d58ø4ø20 
9ødØdØdØdØ,19d 60 1 00000000000000 

335 DATA 19d7cle070381c0e0703, 19d8eØcØØØ 
001e3ee7c3 ,19d9+80c649494640c+8 

336 DATA 19da003+70381c0e0703, 19db00c060 
30180C0683,19dc0225522al6181830 

337 DATA 19dd0++90300001c3761,19de000080 
e0209050e0 

338 ’ 

339 ' 2 Trav heste t< 1 Galop Hest. 

340 DATA 19+1303830387+281000,19+2000060 
3+ + + 302800 , 19+ 3080c 1 e+ 2eØcØaØØØ 

341 DATA 19+40c000c0000000000,19+5000000 
006d000000,19+6000e000c 1 21 20 c 00 

342 DATA 19+70000380+000c0a00,19+8000000 
00++000000,19+9000000++0+060500 

343 DATA 19+aØØØØØØØØ+ØØØØØØØ,19+bØØØØlc 
0707060500,19+c0000009+b+060500 

344 DATA 19+d6000606040000000,I9+e007000 
0000600000,19++004060+090000000 

345 * 

346 ’ Variablen Screen*. 

347 DATA 969a9a9a9e9a9a9a9a9a9e9a9a9a9a9 
e9a9a9a9e9a9a9a9a9a9e9a9a9a9a9c 

348 DATA 9520202095202020202095202020209 
5202020952020202020952020202095 

349 DATA 979a9a9a9+9a9a9a9a9a9+9a9a9a9a9 
+9a9a9a9+9a9a9a9a9a9+9a9a9a9a9d 

350 DATA 939a9a9a9b9a9a9a9a9a9b9a9a9a9«9 
b9a9a9a9b9a9a9a9a9a9b9a9a9a9a99 

351 DATA 954c7c629520477b742095205636209 
54c7c629520477b7420952056362095 

352 ’ 

353 ’ Variablen Hest*. 

354 DATA 0+02+4+7+9++0808080816010+01+5+ 
8+ a0808080+03+ 60909091600 

355 DATA 0+01+b+c++080816010+02+d080+03+ 
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e091600 

356 ’ 

357 ’ Variablen Cps*. 

358 DATA 1+140e969a9c20969a9c20969a9c202 
02020 

359 DATA 1+140+95202020979a9920939a9c2ø2 
02020 

360 DATA 1+1410939a999091202090939a99902 
02020 

361 DATA 1 + 230+ 436+6d696320506+ 6c7465726 
162656e6420536+6674776172652e 

362 * 

363 ’ Variablen V61ogo*. 

364 DATA dadbdcddde08080808080ad6d7d8d90 
808080808øac+ 

365 DATA død 1d2d3d4d5080808080808080ac8c 
9cacbcccdce 

366 ’ 

367 ’ Variablen Ind*. 

368 DATA 70727b73656e746572657220666+722 
0416d7374726164 

369 DATA 20435043203436342+3636342+36313 
238 

370 DATA 47616d652050726+6772616d6d65742 
03a 

371 DATA 2a2a2048455354205636202a2a20+1+ 
2+3 

372 DATA 32322e20417072696c203i3938362e 

373 • 

374 * Variablen Reklame*. 

375 DATA l+01012a434+505952494748542a383 
62a434+4d4943 

376 DATA 2a504+4c5445524142454e442a534+4 
65457415245 

377 DATA l+011918202a2a20484553542056362 
02a2a20+1+2+3 

378 DATA 2020202a2a2048455354205636202a2 
a20+1+2+32020 

379 • 

380 • Variablen Inddata*. 

381 DATA 1+02184574205c6a6S626c696b20212 
0496e646c7b736e696e6720616620646174612e 

382 ’ 

383 • Samtlige V6 Data: 10.3.84 Til 31.1 
1.85. 

384 DATA 1115b81589746c838bca54141791246 
7234al 36568la81424 lal 318aa936 

385 DATA 582412454c954276b66996659628376 
6271351262aac5561134b56554481 

386 DATA 8c822b4222aa928c855bl1794385566 
2178254a37933349a968996816425 

387 DATA 953361c131cb216641158667b594456 









a65763c8ca4985125663437614624 

388 DATA 5b74452a3abl5232a291523878a6612 
b965532b741c49242b853477a4489 

389 DATA 5b73241aa28279a7887783b562537ba 
81328722c4ab85839853237193816 

390 DATA 6935235b3815c48551747b33844a457 
al 155a18764936944153583373585 

391 DATA 19a63722736a69444a357a241597361 
c6991526218755615a7628594735a 

392 DATA 63126746643736a72a748551482a29a 
2911278121laa5745548666235469 

393 DATA No More 



Bowling the Bowl 

Når man er Amstrad-ejer, kniber det ofte med tid til 
at besøge byens barer og bowling-haller. Det gælder 
også i det norske, hvor Torgrim Sandvoll i Elvegara 
har forsøgt at råde bod på dette med følgende Bow¬ 
ling-program, som Torgrim kalder for Bowl - IT. 

Selve bowlingsspillet er virkelig flot lavet og, især 
hvis man er flere spillere, er det ganske enkelt hyle- 
skægt. Spillet er selvinstruerende, det eneste du skal 
vide er, at når du skal skrive spillernavne, skal disse 
bestå af 3 bogstaver, og niveau 1 er det vanskeligste. 

De vigtigste variable er: 
spillsc (1-5) spillerens score 

spil (1-5) spillerens navn 

turn hvilken omgang 

skiil sværhedsgrad 

bow nummeret på den, 

der bowler. 

Af andre snedigheder kan blot nævnes, at CALL & 
BD19 gør skærmbevægelserne blødere. 

Tag kun fat på indtastningen (selv om den er lang). 
Resultatet er anstrengelserne værd. 

1 REM Copyright Torgrim Sandvoll. 

2 ON ERROR GOTO 3445 

10 REM »»»»»HHMmH 

20 REM * BOWL IT * 

30 REM * by * 

40 REM * T.Sandvoll * 


50 REM ****************** 

90 CLEARIDIM a <10):DIM hisc(3,6):DIM his 
pi 1*(3,6) 

99 REM ** AApning ** 

100 MODE 0 

110 INK l,l:INK 2,2:INK 3,6:INK 4,18:INK 
0,0:INK 5,24:INK 6,26:INK 7,2,6:INK 8,1 
8,24 

120 CLStPEN 7 

130 print:print:print:print 

140 PRINT * BOWL * I:PEN 8:PRINT "IT 

■ 

150 PRINT:PRINT 

160 PEN 3:PRINT " by" 

170 PRINT:PRINT 

180 PEN 5:PRINT • TORSOFT" 

185 PEN 6 

190 FOR a«5 TO 15 

195 LOCATE a,3:PR!NT 

198 LOCATE a,14:PRINT 

200 NEXT a 

210 FOR a-3 TO 14 

220 LOCATE 5,a:PRINT "*" 

225 LOCATE 15,a:PRINT "*" 

230 NEXT a 

240 print:print:print 
250 PEN 5 

260 PRINT " Any kay to START * 

270 LOCATE 1,25:PEN 1:PRINT "COPYRIGHT T 
.SANDVOLL"J 
299 RESTORE 370 
3&0 s-1 

310 ENT -1,1,-127,1,5,24,1 
320 ENV 1,1,15,1,5,-3,2 
330 ENV 2,15,-1,10 
340 FOR t-1 TO 4 
350 IF s>2 THEN s=l 

366 IF s=l THEN ch-1 

367 IF s=2 THEN ch-4 
370 FOR y-1 TO 3 

380 FOR 0-0 TO 100:NEXT o 
390 ton-(t*4)*54 
400 SOUND ch,ton,6,0,1,1,1 
410 NEXT 

420 s=s+l:NEXT:ch-5:s=l 
430 FOR t=0 TO 90:NEXT 
440 SOUND 2,0,150,15,2,0,1 
450 FOR p-1 TO 3 
460 SOUND ch,486,6,15,1,1,2 
470 FOR t-0 TO 360:NEXT 
480 SOUND ch,300,6,0,1,1,2 
490 FOR t-0 TO 180:NEXT 
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500 SOUND ch,300,6,0,1,1,2 

510 FOR t=0 TO 180:NEXT 

520 SOUND ch,486,6,15,1,1,2 

530 FOR t=0 TO 360:NEXT 

540 SOUND ch,300,6,0,1,1,2 

550 IF p< 3 THEN FOR t=0 TO 360:NEXT 

560 IF p=3 THEN FOR t-0 TO 240:NEXT 

570 NEXT p 

580 IF INKEY*="■ THEN 300 

999 MODE 1 

1000 REM Begynner-rut ine (verdi er,symbol 
isering.ol.) 

1005 FOR a=l TO 5:spi 11sc<a)=0:sp11 *<a>- 

■■:next 

1010 INK 0,0:INK 1,1:INK 2,2:INK 3,24:PE 
N 3:paper ø:border 3 
1020 GOSUB 3210 
1030 SYMBOL AFTER 32 
1040 SYMBOL 97,0,0,0,0,0,12,30,30 
1050 SYMBOL 98,30,120,248,248,240,224,0, 
0 

1060 SYMBOL 99,0,0,0,1,1,3,3,4 

1070 SYMBOL 100,24,60,60,60,24,60,126,25 

5 

1080 SYMBOL 101,247,251,251,122,118,60,6 
0,24 

1090 SYMBOL 102,60,126,251,253,253,251,1 
26,60 

1100 GOSUB 2410:GOSUB 2370:GOSUB 2570 

1105 REM Hivedrutine 

1110 FOR turn-1 TO 10 

1120 FOR bow-1 TO spill 

1130 FOR c=l TO 10:a<c)=0:NEXT c 

1140 slag=0:sc=0:le=0:lel-ø:ri=0:r11=0:a 

=ø:a2=ø:sc1*0:GOSUB 2860 

1150 slag=slag+l 

1160 GOSUB 1240 

1170 GOSUB 1450 

1180 GOSUB 1950 

1190 IF slag=l AND sc<30 THEN GOTO 1150 
1200 LOCATE 5,19*bow:PRINT spl11sc(bow)| 
1210 NEXT bow 
1220 NEXT turn 

1230 SYMBOL AFTER 256:GOSUB 3050 

1240 REM Frem og tilbake 

1250 CALL I.BD19 

1260 PRINT CHR*(22)+CHR*(0) 

1270 a=28 

1280 LOCATE 4,8+<bow*2>:PRINT 
1290 UHILE a<36 
1300 a=a*1 

1310 IF INKEY*< >"• THEN x-a-l:LOCATE 4,8 
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♦<bow*2>:PRINT " *:RETURN 
1320 LOCATE a, 25: PRINT *f; 

1330 IF a>28 THEN LOCATE a-l,25:PRINT " 
"t 

1340 FOR y=l TO skill:NEXT 
1350 UEND 

1360 LOCATE 4,8*<bow*2>:PRINT * "i 
1370 WHILE a>28 
1380 a«a-l 

1390 IF INKEY*< >■* THEN x=a+l:RETURN 
1400 LOCATE a,25:PRINT T 

1410 IF a<36 THEN LOCATE a+l,25:PRINT ■ 

■ • 

V 

1420 FOR y=l TO skill:NEXT 

1430 UEND 

1440 GOTO 1280 

1450 REM Stot 

1460 ENT -1,1,-1,1 

1470 CALL kBD19 

1480 LOCATE x,25:PRINT * "5 

1490 IF a<32 THEN lel-i:rll=0 ELSE IF a> 

32 THEN ril-l!lel-0 

1500 IF a=28 OR a-36 THEN 11*25 

1510 IF a*29 OR a*35 THEN Ii-23 

1520 IF a-30 OR a*34 THEN li*22 

1530 IF a=31 OR a=33 THEN li-21 

1540 IF a=32 THEN 11-20 

1550 IF 1*-1 AND lel-1 THEN side-l:lF a< 

-a2 THEN 1i-25:sidel-1 

1560 IF ri-1 AND ril-1 THEN side=i:iF a> 

= a2 THEN 1 i-25:s 1 del-1 

1570 SOUND 1,1000,11*5,15,0,1 

1580 FOR 111-1 TO li 

1590 LOCATE a,26-1 i 1:PRINT *f| 

1600 IF 1 i 1>1 THEN LOCATE a,27-1 i 1:PRINT 
■ *1 

1610 IF a-a2 THEN GOSUB 2310 
1620 FOR c—1 TO 20:NEXT c 
1630 NEXT 1 i 1 
1640 treff-0 

1650 IF a=29 THEN tre-f 4-1: a (1) »1 

1660 IF a-30 THEN treff-1:a(1)-1:a(2)-1: 

a(5)=1 

1670 IF a-31 THEN treff=1:1-1:a(1)-1:a(2 
)-l:a(3)-i:a(S)-l:a(6)-l:a(8)-i 
1680 IF a-32 THEN treff=l:h-1:FOR w-1 TO 
10:a(w)-l:NEXT w 

1690 IF a-33 THEN treff=1:h-1:a(2)-1:a(3 

)-i:a(4)-l:a(6)»l:a(7)-l:a(9)-i 

1700 IF a=34 THEN treff-1:h-1:a(3)-1:a14 

)-i:a(7)-l 

1710 IF a-35 THEN treff=1:h-1:a(4)=1 







1720 IF 1 i=25 THEN tref4=0:FOR q=l TO 10 
:a(q)=0:NEXT 

1730 IF a<32 THEN le=l:ri=0 ELSE IF a>32 
THEN r1=1:le=0 
1740 REM Visker 

1750 IF treff=0 THEN LOCATE a,l :PRINT ■ 
*:SOUND 1,50,10,15:RETURN 
1760 IF a(1)=1 THEN LOCATE 29,l:PRINT • 
*:LOCATE 29,2:PEN 2:PRINT * d*:SOUND 1, 

1000.10.15 

1770 IF a(2)=1 THEN LOCATE 31,1:PRINT * 
•:LOCATE 31,2:PEN 2:PRINT ' d‘:SOUND 1, 

900.10.15 

1780 IF a(3)=1 AND h=l THEN LOCATE 33,1: 
PRINT • ■:LOCATE 33,2:PRINT * •:SOUND 

1.800.10.15 ELSE IF a(3)=1 THEN LOCATE 3 
3 ,i:print • -:locate 33,2:pen 2:print • 

d *:SOUND 1,800,10,15 
1790 IF a(4)=1 THEN LOCATE 35,1:PRINT ■ 

*:LOCATE 35,2tPEN 1:PRINT *a *:SOUND 1, 

700.10.15 

1800 IF a(5)=1 THEN LOCATE 30,2:PRINT * 
":LOCATE 30,3:PEN 2:PRINT ■ d":SOUND 1, 

600.10.15 

1810 IF a(6)=l THEN LOCATE 32,2:PRINT ■ 

■:LOCATE 32,3:PRINT ■ ■:SOUND 1,500,10 

.15 

1820 IF a<7)=l THEN LOCATE 34,2:PRINT * 

":LOCATE 34,3:PEN 1:PRINT *a *:SOUND 1, 

400.10.15 

1830 IF a <7)=0 THEN PEN 1:LOCATE 34,2:PR 
INT ■ a":LOCATE 34,3:PRINT "cb*:PEN 2:L0 
CATE 34,2:PRINT ”d - :LOCATE 34,3:PRINT "e 
• 

1840 IF a(8)=l THEN LOCATE 31,3:PRINT * 
•:LOCATE 31,4:PEN 2:PRINT * d*:SOUND 1, 

300.10.15 

1850 IF a(9)=1 THEN LOCATE 33,3:PRINT * 
•:locate 33,4:pen i:print -a "ISOUND 1, 

200.10.15 

1860 IF a(10)=1 THEN LOCATE 32,4:PRINT ■ 
•:locate 32,5:print ■ -:sound i,iøø,i 
0, 15 

1870 IF a>32 AND a(10>*0 THEN LOCATE a,2 
6-1 i:PEN 1:PRINT *b“ ELSE LOCATE a,26-11 
:PRINT * » 

1880 PRINT CHR* 122)+CHR*(1) 

1890 IF a <7)=0 THEN PEN 1:LOCATE 34,2:PR 
INT ■ a":LOCATE 34,3:PRINT *cb‘:PEN 2:L0 

CATE 34,2:PRINT ■d*:LOCATE 34,3:PRINT ’e 
■ 

1900 IF a(9)=0 THEN LOCATE 33,3:PEN l:PR 


INT - a‘:LOCATE 33,4:PRINT “cb’:PEN 2:L0 
CATE 33,3:PRINT “d“:LOCATE 33,4:PRINT ’e 
■ 

1910 IF a 14)=0 THEN PEN l:LOCATE 35,1:PR 
INT ■ a“:LOCATE 35,2:PRINT ”cb”:PEN 2:LO 
CATE 35,l:PRINT "d *:LOCATE 35,2:PRINT ’e 
■ 

1920 PRINT CHR*(22)+ CHR*(0) 

1930 FOR we=l TO 500:NEXT »e 
1940 RETURN 

1950 REM Poengutregning 
1960 FOR s=l TO 2 

1970 IF slag-s AND a=29 THEN sc=l 

1980 IF siag=s AND a=35 THEN sc=l 

1990 IF a=28 OR a-36 THEN sc=0 
2000 IF slag=s AND a=30 THEN sc=3 

2010 IF s 1ag=s AND a=31 THEN sc=6 

2020 IF slag=l AND a=32 THEN sc=30 ELSE 

IF a-32 THEN sc = 15 

2030 IF slag=s AND a*33 THEN sc=6 

2040 IF »lag=s AND a=34 THEN *c=3 

2050 NEXT s 

2060 IF slag=2 THEN GOSUB 2170 
2070 sc*=STR*(sc> 

2080 IF sc=30 THEN sc*=‘X•:s 1ag=s1ag+1 E 
LSE IF sc=15 THEN sc*=*/*:s 1ag=s1ag+1 
2090 PRINT CHR*(22)*CHR*<1):PEN 2 
2100 LOCATE 2*slag+(turn*2),8*<bOH*2):PR 
INT sc* 

2110 PRINT CHR*(22)+CHR*(0) 

2120 IF mlag=3 AND sc=15 THEN spillsc(bo 
M)*spi1 Ise(bow)♦sc:GOTO 2150 
2130 IF slag-2 THEN spi1lsc(bow)=spi1lsc 
(bow)«(mc+scl) 

2140 scl-sc 

2150 a2=a:side=0:sidel=0 
2160 RETURN 


2170 

IF 

a=31 

AND 

a2=33 

THEN 

sc=3 

2180 

IF 

a=33 

AND 

a2=31 

THEN 

sc=3 

2190 

IF 

sidel 

= 1 THEN sc =0 


2200 

IF 

a=31 

AND 

a2=30 

THEN 

sc=3 

2210 

IF 

a=30 

AND 

a2=29 

THEN 

sc=2 

2220 

IF 

a=33 

AND 

a2=34 

THEN 

sc=3 

2230 

IF 

a=34 

AND 

a2=35 

THEN 

sc=2 

2240 

IF 

a2=34 

AND 

a=31 

THEN 

sc=5 

2250 

IF 

a2=30 

AND 

a=33 

THEN 

sc=5 

2260 

IF 

a2 = 33 

AND 

a=30 

THEN 

sc=2 

2270 

IF 

a2=31 

AND 

a=34 

THEN 

sc=2 

2280 

IF 

a2 = 29 

AND 

a=31 

THEN 

sc=5 

2290 

IF 

a2=35 

AND 

a=33 

THEN 

sc = 5 


2300 RETURN 
2310 REM 
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2320 li2*26-1 il:TF li2>5 THEN RETURN 
2330 IF a=33 THEN IF li2-3 THEN PEN 1:L0 
CATE 33,5:PRINT *b":LOCATE 33,4:PRINT 'a 
■ 

2340 IF a=34 THEN IF li2*2 THEN PEN 1:LO 
CATE 34,4:PRINT “b“:LOCATE 34,3:PRINT *a 
• 

2350 IF a=35 THEN IF 1 i2—1 THEN PEN 1:LO 
CATE 35,3:PRINT *b*:LOCATE 35,2:PRINT *a 

■ 

2360 RETURN 

2370 REM Oppsett av Bom lebane 
2380 PLOT 426,399,3:DRAU 426,1:PLOT 426, 
399:DRAU 406,1:PLOT 426,299:DRAW 416,10: 
PLOT 406,1:DRAUR 10,10:DRAUR 10,-10:DRAW 
406, 1 

2390 PLOT 580,399:DRAU 580,1:PLOT 580,39 
9:DRAU 590,10:PL0T 580,399:DRAW 600.11PL 
OT 58ø,i:drawr iø,iø:drawr iø,-iø:draw 5 
80,1 

2400 RETURN 

2410 REM Oppsett av BOUL IT 
2420 REM B 

2430 PLOT 10,375,3:DRAWR 0,-50:DRAUR 20, 
0: DRAWR 10,5: DR AUR 0,15:DRAUR -lØ.S’.DRAU 
R -20,0:DRAUR 20,0:DRAUR 10,5:DRAUR 0,15 

:draur -iø,s:draur - 20,0 

2440 REM O 

2450 PLOT 50,375:DRAUR 0,-50:DRAUR 30,0: 
DRAUR 0,50:DRAUR -30,0 
2460 REM U 

2470 PLOT 90,375:DRAUR 10,-50:DRAUR 5,10 
:DRAUR 5,-10:DRAUR 10,50 
2480 REM L 

2490 PLOT 130,375:DRAUR 0,-50:DRAUR 30,0 
2500 REM I 

2510 PLOT 220,390,2:DRAUR 40,0:DRAUR 0,- 
5:DRAUR -15,0:DRAUR -20,-70:DRAUR 15,0:D 
RAUR 0,-6:DRAUR -40,0:DRAUR 0,6:DRAUR 15 
,0:DRAUR 20,70:DRAUR -15,0:DRAUR 0,5 
2520 REM T 

2530 PLOT 270,390:DRAUR 80,0:DRAUR 0,-5: 
DRAUR -30,0:DRAUR -20,-76:DRAUR -10,0:DR 
AUR 20,76:DRAUR -40,0:DRAUR 0,5 
2540 REM RAMME 

2550 PLOT 5,395,l:DRAUR 365,0:DRAUR 0,-9 
0:DRAUR -365,0:DRAUR 0,90 
2560 RETURN 

2570 REM Oppsett av Navn,Tabel 1, etc. 
2580 FOR a=l TO 6 

2590 PLOT 0,296-<a*32),3:DRAUR 400,0 
2600 NEXT a 


2610 FOR a=l TO 11 

2620 IF a=ll THEN a=11.2 

2630 PLOT 46+<a*32),296:DRAUR 0,-192 

2640 NEXT a 

2645 tel 1er=0 

2650 RESTORE 2700 

2660 FOR a=6 TO 24 STEP 2 

2670 teller=teller ♦ 1 

2680 LOCATE a,8:READ a*:PRI NT a* 

2690 NEXT a 

2700 DATA 1,2,3,4,5,6,7,8,9,10 
2705 te 1=0 
2710 FOR a=l TO 5 
2720 tel=tel*2 

2730 LOCATE 1,8*tel:PRINT spil«(a) 

2740 NEXT a 

2750 PLOT 192,0,2:DRAUR 0,28:DRAUR 70,0: 
DRAUR 0,32:DRAUR 70,0:DRAUR 0,-32:DRAUR 
70,0:DRAUR 0,-28 

2760 LOCATE 19,23: PEN 3: PRINT "l**. 

2770 LOCATE 15,25:PRINT '2' 

2780 LOCATE 24,25:PRINT "3" 

2790 FOR a=l TO spi 11 

2800 LOCATE l,19+a:PEN 1:PRINT spilS(a)! 

2810 NEXT a 

2815 hisc* ( 2 ,sk i 1 11)=STR*(hisc<2, sk illi) 

) 

2820 LOCATE 14,22:PRINT hispi1*(2, ski 1 1 1 
1:LOCATE 13,23:PRINT hisc*(2,sk il 111 
2830 LOCATE 18,20:PRINT hispi1« ( 1, sk 11 1 1 
) : LOCATE 17,2l:PRINT h i sc( 1 , sk i 11 1) 

2835 hisc*(3,sk i 111)=STR*(hi sc (3,sk i 1 11> 

> 

2840 LOCATE 23,22:PRINT hisp i 1*(3,sk i 1 1 1 
>:LOCATE 22,23:PRINT hisc* ( 3 , sk i 1 11 1 
2850 RETURN 

2860 REM Oppsett av Kjegler 

2870 RESTORE 2950 

2880 PRINT CHR*<22 ) +CHR* ( 1> 

2890 FOR A=1 TO 50 
2900 READ FA,X , Y ,A* 

2910 PEN fa:locate X,Y:PRINT A* 

2920 FOR B=1 TO 25:NEXT 
2930 NEXT 

2940 PRINT CHR*(22)♦CHR*<0>:RETURN 
2950 DATA 1,30,1 , a,1,30,2 , b,1 , 29 , 2, c , 2, 2 

9.1.4.2.29 . 2, e 

2960 DATA 1 , 32, 1, a , 1 , 32 , 2,b,1,31 , 2, c , 2 , 3 

1. 1.4.2.31.2, e 

2970 DATA 1 , 34,1,a,1,34 , 2,b , 1, 33 , 2 , c , 2 , 3 
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3.1, <1,2,33,2,* 

2980 DATA 1,36,1,a,1,36,2,b,1,35,2,c,2,3 
5, 1, <1,2,35,2, e 

2990 DATA 1,31,2,a,1,31,3,b,1,30,3,c,2,3 
0,2,<1,2,30,3,e 

3000 DATA 1,33,2,a,1,33,3,b,1,32,3,c,2,3 

2.2, <1,2,32,3, e 

3010 DATA 1,35,2, a, 1,35, 3, b, 1,34,3, c, 2,3 

4.2, <1,2,34,3,e 

3020 DATA 1,32,3,a,1,32,4,b,1,31,4,c,2,3 

1.3, d,2,31,4,* 

3030 DATA 1,34,3,a,1,34,4,b,1,33,4,c,2,3 

3.3, <1,2,33,4,e 

3040 DATA 1,33,4,a,1,33,5,b,1,32,5,c,2,3 

2.4, <1,2,32,5,* 

3050 REM Slutt 
3060 PEN 2:MODE 0 
3070 LOCATE 1,5 

3080 FOR a*l TO spill 

3090 PRINT “ * S spi1 *(a)I:PEN 3:PRINT 

spi1lsc(a):PEN 2 

3110 NEXT a 

3120 FOR a=l TO spill 

3130 IF spi11sc(a)>hisc <3,sk i 1111 THEN G 
OSUB 3180 
3140 NEXT a 

3160 kS=INKEYS:IF k*=** THEN GOTO 3160 

3170 SYMBOL AFTER 256:GOTO 100 

3180 IF spillsc(a)>hisc(l,skilll) THEN h 

isc(3,sk i 111)=hisc(2,sk i 111):hispi 1*(3,s 

killl)=hispil*(2,skilll):hisc<2,skilll)= 

hiscd.skilll) : hispi l*(2,ski111>=hispi1* 

( 1 ,sk i 11 1):hisc(1,ski 111> =spi11sc(a):hi s 

p11*(1,sk i 111)*sp i 1*(a):RETURN 

3190 IF spi1lsc(a)>hisc(2,ski 1111 THEN h 

isc < 3,sk i 111 )“hisc( 2 ,sk 1 11 1 ):hispi10 <3,s 

killl)=hispilS(2,skilll):hisc(2,skilll)= 

spillsc(a):hispilS(2,skilll)-spilø(a):RE 

TURN 

3200 hise(3,sk i 111)>spi1lsc(a):hispilø(3 
,skilll)=spilø(a):RETURN 
3210 REM Aapning 
3220 CLS 

3230 PRINT:PRINT 
3240 PEN 1 

3250 PRINT * BOWL IT* 

3260 PRINT ’ -* 

3270 PEN 3 
3280 PRINT:PRINT 

3290 PRINT * Bom 1 IT er tor 1-5 spillere 


1ing.* 


3310 PRINT 


Strik* (X) 


= 30 poeng, 


3320 PRINT 


Halt Strike (/) = 15 poeng. 


3330 PRINT * Ellers poeng etter hvor man 
ge* 

3340 PRINT * kj eg ler du greier." 

3350 PRINT 

3360 PRINT • Hvilken som helst tast tor 
aa s 1 aa!* 

3370 PRINT:PRINT 
3380 PEN 2 

3390 PRINT * Trykk en tast tor aa tortse 
tte. * 


3400 PEN 3 

3410 IF INKEYø= * * THEN 3410 

3420 CLS 

3430 print:print 

3440 PRINT * Hvor mange spillere (1-51 * 

3445 kS=INKEYS: IF k*=** THEN 3445 

3446 k=VAL(k*>:IF k>5 OR k<l THEN 3445 


3447 spi1l*k 

3448 LOCATE 28,3:PRINT k* 

3460 PEN 3 

3470 q-0 

3480 FOR a*l TO spill 
3490 q-q*l 

3500 LOCATE 2,6+a:PRINT *Spiller*ta 
3510 k*-INKEY*:IF k*-** THEN 3510 
3520 sp*<q>«UPPER*(k*> 

3525 IF ASC(spS(q))>90 OR ASC(sp*(q))<44 
THEN 3510 

3530 LOCATE Utq,6*a:PEN 2:PRINT sp*(q): 


PEN 3 

3540 IF q-3 THEN q«0:spi1*(al=sp*(1>+sp* 

(2)tap*(3) ELSE GOTO 3490 

3550 NEXT 

3560 PRINTIPRINT 

3570 PEN 3 

3580 PRINT * Hvilken ski 11 <1 - 61* 

3585 k*-INKEY*:IF k*=** THEN 3585 

3586 IF ASC(k*)>57 OR ASC(k*)<49 THEN 35 
85 

3587 ski 1ll-VAL(k*>:IF k<l OR k>6 THEN 3 
585 

3600 skil1-ski111*5 
3610 CLS:RETURN 


£ 



3300 PRINT * Regi ene er som i vanlig Bow 
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Nyttigt lille program 

Dette lille overførselsprogram er yderst nyttigt, når 
du f.eks. har lavet en maskinkodefil, gemt den på 
bånd i 6 måneder, og så skal bruge den i anden forbin¬ 
delse. Så kan man simpelthen aldrig huske adresser¬ 
ne! Og her kommer denne nyttige lille program¬ 
stump ind i billedet. Den kan nemlig lægge din mc-fil 
over på et andet bånd, i forbindelse med dist pro¬ 
gram. At den så i samme ombæring un-protecter be¬ 
skyttede BASIC-programmer. skal blot med for en 
ordens skyld. 

Programmet er selvforklarende og hurtigt at taste 
ind. 

1 * Copiering A4 Tape Files etc. April 1 
986. 

2 ' (c) Comic Polterabend So+tware By HG 

S. 

3 a=2:INK 0,a:INK l,a:MODE 1:PAPER ø:PEN 
l:BORDER a:CLS:SYMBOL AFTER 256 

"!STRING*(4ø,32);:PR I NT * *1986 
Comic Polterabend Software. “J 

5 PRINT STRING*(40,32);:PRINT * Kopier in 

g at Tape Filér tor CPC 464. •{ 

6 PRINT " Tryk Lille <Enter> For Kopieri 
■ 

7 addr=148:MEMORY 41854:SPEED WRITE ItUI 
NDOW 1,40,8,25 

8 READ a*:IF a*="STOP" THEN KEY 139,"CAL 
L 148"+CHR*(13):INK 1,1:DELETE 1-14 

9 FOR a=1 TO LEN(a») STEP 2:P0KE addr.VA 
L< “fc“♦MID*( a*, a, 2) ) :addr=addr*l 

10 NEXT a:GOTO 8 

11 DATA 0600117FA3CD77BCØ14000115300EDBØ 
2A6800CD 

12 DATA 83BCCD7ABC21A7003E32CD68BC061021 
5300117F 

13 DATA A3CD8CBC3A6500E6FE2A6DØØE5C12A6B 
ØØE5D12A 

14 DATA 6800CD98BCCD8FBCC9,"STOP" 



Amstradbladet 

udvider 

aktiviteterne 

Via en aftale med det engelske forlag Database Publica- 
tions, som har overtaget udgivelsen af Amstrads eget 
officielle brugerblad Amstrad Computer User, har vi 
overtaget en række distributionsrettigheder 

Dette betyder at du fremover kan bestille abonnement 
på Amstrad Computer User direkte hos os Også blad- 
og computerforhandlere kan vi fremover levere til. 

Du sparer penge! 

Amstrad Computer User udkommer hver måned. Bla¬ 
det er på engelsk og indeholder hver gang omkring 100 
sider dugfriske nyheder, programlistninger, tests og tilbud 
- direkte fra Amstrad selv. 

Redaktionen m .v. befinder sig stadig i Amstrads lokaler 
i Brentwood - lige midt i brændpunktet. Amstrad Com¬ 
puter User koster i løssalg kr. 31,00 pr. nummer. Dette 
giver totalt kr. 372,- pr. år. Vi kan tilbyde dig et abonne¬ 
ment til i alt kr. 298,- pr. år. incl. fri levering med posten 
på udgivelsesdagen. Ud over behageligheden ved at få 
bladet leveret lige ind af brevsprækken sparer du altså 
kr. 74,-. Det svarer faktisk til, at du får mere end 2 blade 
gratis om året! 

Skynd dig at udnytte dette gode tilbud, så du allere¬ 
de fra næste nummer kan komme i gang md at spare 
penge. Du indsender blot nedenstående kupon, ved¬ 
lægger en check på kr. 298,- (eller indsætter beløbet 
på giro 6 26 5197, Forlaget Microtech, Hovedgårdsvej 
4, 8600 Silkeborg), hvoreffer vi registrerer dig som 
abonnent og du får bladet tilsendt fremover - nemme¬ 
re kan det ikke blive! 


JA TAK! Jeg ønsker at tegne abonnement på det engel¬ 
ske Amstrad Computer User. 

Bladet udkommer 12 gange om året, leveres portofrit, 
direkt til mig, for kun kr. 298,- pr. år. Mit abonnement 
løber indtil jeg skriftligt opsiger det (min. 1 år). 

Navn: __ 

Adresse: _ 


Postnr/By: - 

evt. telefon: - 

Beløbet er vedlagt i check:- 

indsat på giro 6 26 5197-(sæt kryds) 
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Tipsprogram med statistik 

Tipse-trold er et program, der arbejder ud fra helt andre 
principper end tipsprogrammet fra sidste nummer af 
Amstrad Bladet (2/86). Programmet kan kun arbejde 
med en tipskupon af gangen, men til gengæld kan man 
registrere et antal fodboldhold, som man kan udarbejde 
statistiske oversigter over. Programmet kan så være be¬ 
hjælpelig ved udfyldning af tipskuponer. De to tipspro¬ 
grammer vil iovrigt kunne supplere hinanden 
udemærket. Programmet fungerer således, at man hver 
uge indtaster resultaterne af hver kamp. Efterhånden vil 
man få opbygget et godt grundlag for tipsprognoser, der 
naturligvis aldrig vil blive rammende, men som kan bru¬ 
ges som rettesnor i tipningen. Indtastningerne foregår 
ved, at man først fortæller programmet hvilket af holde¬ 
ne, der spiller på hjemmebane og derefter antallet af mål 
til hvert hold. Det er iovrigt typisk for programmet, at det 
regner i mål istedet for sejre. 

Forste gang programmet startes, skal der indsættes en li¬ 
nie 55 med en GOTO til linie 1650, hvorved der gemmes 
en datafil på bånd eller disc, der skal bruges, hver gang 
programmet startes op. 



10 POKE 46822.201:KEY DEF 66.0.0.0.0 

20 GOSUB 1490 

30 DI H A* (50) , AX (50,50,2) 

40 DIM RI 13) 

50 DIM H(13,2) 

60 REM *** STARTDATA HENTES *** 

70 OPENIN “TIPSDATA" 

90 FOR Z=1 TO 50 
90 INPUT #9.A$(Z) 

100 FOR 0=1 TO 50 
1 10 INPUT »9. AXIZ.Q, 1) 

120 INPUT #9. AXIZ.Q,2) 

130 NEXT Q.Z 


140 CLOSEIN 
150 REM *** MENU 


160 

MODE . 

2 








170 

PRINT 

"TTTTT 

I 1 I I I 

PPPP SSS 

EEEEE 


TTTTT RRRR 

000 

L DDDD" 


180 

PRINT 

"T 

T T 

I 


P 

PS S 

E 

E 


T 

T 

T R 

R 

0 

0 

L D 

D* 


190 

PRINT 

II 

T 

I 


P 

P S 

E 




T 

R 

R 

0 

0 

L D 

D* 


200 

PRINT 

•1 

T 

I 


PPPP SSS 

EEE 




T 

RRRR 

0 

0 

L D 

D “ 


210 

PRINT 

" 

T 

I 


p 

S 

E 




T 

R 

R 

0 

0 

L D 

D“ 


220 

PRINT 

M 

T 

I 


p 

S S 

E 

E 



T 

R 

R 

0 

0 

L L D 

D“ 


230 

PRINT 

• 

TTT 

1 1 1 1 1 

p 

SSS 

EEEEE 


TTT 

R 

R 

000 

LLLLL DDDD" 



240 PRINT 

250 PRINT ’ (C) 198S by Skærmtrold 

Program by Thomas Gjarup" 

260 PR I NT:PR I NT TAB(20)"(1> Udskrive tip 
skupon" 

270 PRINT TAB (20)“(2) Udskrive statistik 

II 

280 PRINT TAB ( 20 ) " ( 3 ) Oprette/slette F-'l 
d’ 

290 PRINT TAB( 20)"( 4 ) Indtaste resultate 
r * 

300 PRINT TAB( 20)"(5) Afslut program" 

310 A*=INKEY$ = I F A*<" 1" OR A*>"5' THEN 3 
10 

320 ON VALIAS) GOTO 340,940.1190.1370,16 
60 

330 REH *** UDSKRIV KUPON *** 

340 T=1:FOR KAMP=1 TO 13 
350 MODE 2 

360 PRINT "Kamp nr. “;KAMP;":“ 

370 FOR Z=1 TO 50: IF A*(Z><>"“ THEN PRIN 
T USING ";Z;:PRINT ASIZ) 

380 NEXT Z 

390 INPUT "Holdnummer ( h jemmebane1: “; NR 
400 HIKAMP, 1) =NR 

410 INPUT "Holdnummer ( udebaneNR2 
420 HIKAMP,2)=NR2 
430 MODE 2 

440 PRINT "Kamp nr. \iKAMP;": * 

450 PRINT AXNR);Å* I NR2) 

460 PRINT:PRINT "Statistisk udfald:" 

470 REM *** PROCENTVIS CHANCE *** 

480 PR=100#I AXI NR,NR2, 1)/I ABSI AX( NR,NP2. 
1) )+ABS(AX(NR2,NR,2)) )) 

490 IF PR> 1E+38 THEN PR=50 

500 PRINT A*lNR);USING "«#tt.##X";PR 


510 PRINT A*(NR2)iUSING "»«#.##X";100-PR 
520 PRINT:PRINT "Udregnet tipstegn:" 

530 D=0:I F PR >60 THEN D=D+1:PRINT "1"; 
540 IF ABS (50- PR) <20 THEN D=D+2:PRINT "X 

N . 

550 IF PR<40 THEN D=D+4:PRINT "2"; 

560 REM *** UNDER-MENU *** 

570 PRINT:PRINT:PR I NT "(1) Acceptere udr 
egnet tipstegn" 

580 PRINT “(2) Foretage tendenslodtrækni 

ng" 

590 PRINT “(3) Indtaste tipstegn" 

600 AS=INKEYS:IF A*<" 1" OR AS>"3" THEN 6 
00 

610 IF A*=" 1" THEN 750 
620 IF A*<>"2" THEN 660 

630 D=4:TF=INT(RND*100)+1:IF TFCPR THEN 




D= 1 

640 IF ABS(TF-PR)<PR/5 THEN D=2 
650 GOTO 750 

660 D=0:PR I NT "1 (J/N) ?“ 

670 A*=UPPER*(INKEY*>:IF A*="J" THEN D=D 
+1:GOTO 690 

680 IF AS< > ”N “ THEN 670 
690 PRINT "X (J/N) ?• 

700 A$=UPPER*(INKEY*):IF A*=“J" THEN D=D 
+2:GOTO 720 

710 IF AiO'N' THEN 700 
720 PRINT ”2 (J/N) ?» 

730 A*=UPPER*(INKEY*):IF A*="J” THEN D=D 
+4= GOTO 750 

740 IF A*<>*N" THEN 730 
750 IF D=0 THEN 660 

760 RIKAMP)=D:Y-SGN(D AND 1)+SGN(D AND 2 
)+SGN(D AND 4):T=T*Y 

770 PRINT = PRINT "Pris til og med kamp 
KAMP;": • ;T;kr." 

780 CALL S.BB06 

790 NEXT KAMP 

600 REM *** UDSKRIFT *** 

810 INPUT “Udskrift på skærn eller print 
er (S/P) ";SS:IF UPPER* ( S* )="P" THEN U=8 
ELSE U=0 
820 MODE 2 
830 FOR KAHP=1 TO 13 
840 PRINT BU,USING "88:";KAMP; 

850 PRINT 8U,A*(H(KAMP,1) ); "-";A*(H(KAMP 
,2));SPACE*(60-LEN ( A* ( H ( KAMP,1)))-LEN(A* 
(HIKAMP,2) ) ) ) ; 

860 IF R(KAMP) AND 1 THEN PRINT 8U,“1"; 
ELSE PRINT ttU," 

870 IF R(KAMP) AND 2 THEN PRINT aU,"X"; 
ELSE PRINT au. " 

880 IF R(KAMP ) AND 4 THEN PRINT au,"2" E 
LSE PRINT au, " " 

890 NEXT KAMP 

900 PRINT au, "Antal rækker:" ;T 
910 IF U=0 THEN CALL 8.BB06 
920 GOTO 160 

930 REM *** STATISTIK *** 

940 MODE 2 

950 FOR Z=1 TO 50: IF A*<Z)<>"" THEN PR IN 
T IISING "aa: " ;Z; :PRINT A$IZ> 

960 NEXT Z 

970 INPUT “Holdnumner:";NR 

980 INPUT "Skærn / Printer (S/P) ";S*:IF 


UPPER*(S* )="P" THEN U=8 ELSE U=0 
990 MODE 2 

1000 PRINT au,"Statistik for ";A*(NR);“: 

1010 PS=0:NG=0 

1020 PRINT au 

1030 FOR Z=1 TO 50 

1040 IF Z=NR OR A*(Z)="“ THEN 1130 

1050 PRINT BU 

1060 PRINT 8U."Mod ";A*(Z) 

1070 PRINT BU,"Må 1 score på h j emmebane=”; 
AXINR.Z, 1) ;" nod ";AX(Z,NR,2) 

1080 PRINT BU."Målscore på udebane=";AX( 
NR.Z.2);“ nod ";AX(Z,NR, 1 ) 

1090 PRINT BU,"Målscore tota 1 ="; AX( NR,Z, 
1 )-AX(Z,NR,2i»AXINR.Z,2)-AX(Z,NR, 1 ) 

1100 FS=PS'AXINR.Z,ll+AX(NR.Z.2) 

1110 NG=NG+AX(Z.NR,1) »AX(Z, NR,2 ) 

1120 IF U=0 THEN CALL S.BB06 
1130 NEXT Z 
1140 PRINT BU 


1150 PRINT au, “Totalvurder mg=" ;PS; " mod 
“ ; NG 

1160 IF U=0 THEN CALL 8.BB06 
1 170 GOTO 160 

1180 REM *** RETTE HOLD *** 

1190 MODE 2:INPUT "Oprette eller slette 
hold (O/S) ";S* 

1200 IF UPPER* < S*) = "S“ THEN 1300 
1210 REM *** OPRETTE HOLD *** 

1220 FOR Z=1 TO 50: IF A*(Z)="" THEN 1250 
1230 NEXT Z 
1240 GOTO 310 
1250 MODE 2 

1260 FOR Q = 1 TO Z-1:PRINT A*(Q):NEXT O 
1270 INPUT "Holdnavn: " ;A*(Z) 

1280 GOTO 160 

1290 REM *** SLETTE HOLD *** 

1300 MODE 2 

1310 FOR Z=1 TO 50: IF A$(Z )<>"" 'THEN PRI 
NT USING "B8: ";Z;:PRINT a*(Z) 

1320 NEXT Z 

1330 INPUT "Holdnummer :";NR 
1340 A*(NR)="" 

1350 GOTO 160 

1360 REM ** RESULTATER TIL STATISTIK ** 
1370 M IDE 2 

1360 FOR Z=1 TO 50: IF AS(Z)<>"" THEN PRI 
NT USING "aa:";Z;:PRINT A*CZ) 

1390 NEXT Z 

1400 INPUT “Holdnummer (hjemmebane): " ;NR 
1410 INPUT "Holdnummer ( udebane ):" iNR2 
1420 MODE 2 

1430 PRINT "Antal mål til ";A*(NR); 

1440 INPUT Q:AX1NR.NR2.1)=AX(NR,NR2,1)+Q 
1450 PRINT "Antal nål til ";A*(NR2); 

1460 INPUT Q:AX(NR2,NR,2)=AX(NR2,NR,2)+Q 
1470 GOTO 160 


1480 REM *** DANSKE KARAKTERER *** 

1490 SYMBOL AFTER 91 

SYMBOL 91,126,216,216,254,216,216,2 


iéoo S 
22,0 
1510 f 


1510 SYMBOL 92,29,54,103,107,115,54.92,0 
1520 SYMBOL 93,56, O. 124, 198,254,:198, 198, 


O 

1530 

1540 

O 

1550 

O 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 


SYMBOL 123 
SYMBOL 124 


.0,0,116,26,126,216,110,0 
,6,0,118,204,214,102,220. 

SYMBOL 125,48,0.120,12.124,204,118, 


KEY DEF 29,1.123,91 
KEY DEF 28, 1, 124,92 
KEY DEF 26,1.125,93 
KEY DFF 22, 1,60,62 
KEY DEF 19,1,64,96 
KEY DEF 17,1,43,42 
KEY DEF 39,1,44,59 
KEY DEF 31,1,46,58 
REfJRN 

REM •*** GEM DATA OG SLUT *** 
OPENOUT "TIPSDATA" 

FOR Z=1 TO 50 
PRINT 89,A*(Z) 

FOR Q=1 TO 50 
PRINT 89,AX(Z.Q. 1) 

PRINT 89,AX(Z,Q,2) 

NEXT Q,Z 
CLOSEOUT 

REM *** RESET *** 

CALL O 
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Dygtige Amstrad programmører 
søges til udviklingsarbejde. 

Du skal være god til maskin¬ 
kode programmering !! 
Gode muligheder for en sta¬ 
bil indtægt på royaltybasis. 




TURBO 

- en familie 


med kraft, fart 
og fornuftige priser. 


Til AMSTRAD CPC 6128 og JOYCE 


PASCAL 

kr. 1050,- 
inkl. moms 


I TOLL BOX 

kr. 895,- 
inkl. moms 


TUTOR 

kr. 55o,- 
inkl. moms 


Verdens mest 
solgte PASCAL 
kompiller 


Lav din egen 
database. Klar 
til brug 


Lærerprogram 
til Pascal. Med 
orogramdisk. 



GRUPPEN 


Rebæk Søpark 1 

2650 Hvidovre. Telefon 01-470147. Lokal 7 


Læserservice _ 

Ved tilbud om salg af software af egen udvikling erklærer jeg hermed, at jeg er indehaver af alle programrettigheder. 
Husk venligst navn og adresse på kuponen nederst på siden 


. Klip her! . . . . Klip heri 

Bestillingskort 

Undertegnede bestiller herved 
O lårs abonnement på Amstrad Computer User 

□ Hele årgang 1985 af Amstradbladet. kun kr. 95.- . ... 

□ _stk. Maxell disketter CF2 å kr 67,50 . 

C Samtlige programlistninger på disc fra tidligere Amstradblade ( dette nr ( for kun kr. 110.-. 

r I Samtlige programlistninger i dette nr. på bånd for kr 39.85 . . 

] Samtlige programlistninger i dette nr. på disc for kr 110,- . , , . . 

O Programmeringssproget COMAL på bånd kr. 498.-(se Amstradbladet nr 6/85) 

I j Programmeringssproget COMAL på disc kr. 698. (se Amstradbladet nr 6/85) . 

EU -stk. Joycards å kr. 99,- (se anm. i nr. 6/85) . 


Kuponen sendes til: 

•INPUT. 

Gedvad Bakke 4 
8600 Silkeborg 


Beløbet bedes vedlagt pr check, eller indsættes på giro 6 26 51 97 
Alle priser er exel. porto. Bestillinger bedes forudbetalt 
Beløbet er indsat på giro vedlagt i check (~1 
Efterkrav: + 25 kr 


TOTAL 
+ PORTO 
IALT 


BEL.ØB 


Du skal være opmærksom på. at der for visse bestillingers vedkommende kan være en vis leveringstid, da nogle af 
produkterne kun hjemtages i det antal I bestiller 

Send venligst ovenstående til: 

Navn: , , .. 

Adresse: .. . .. 

Postnr./by: . evt. tlf.:. 


31 . 


































-\ém 3 esdftt m flrøaweiu 


TEXTOMAT er et menustyret tekstbehandlingspro¬ 
gram. Alle printere kan faktisk tilsluttes via de ind¬ 
byggede printertilpasningsrutiner. 10 frit definerbare 
styretegn til printer for max. udnyttelse af printerens 
muligheder, såsom fed-bred- og grafik skrift. Teksten 
kan blockopdeles og flyttes rundt som det nu passer 
bedst. Højre og venstre margin kan justeres ligesom 
overskrifter m.m kan centreres. Med data fra DATA¬ 
MAT kan TEXTOMAT fremstille seriebreve med per¬ 
sonligt tilsnit. Teksten formateres direkte på skær¬ 
men, således at det færdige resultat har lige højre og 
venstre margin. 

__1 498 ,- 

Wrtnh 


DATAMAT er et konfortabelt dataforvaltningspro¬ 
gram til AMSTRAD. DATAMAT kan indeholde op til 
253 tegn pr. kort og bruger ethvert felt som index 
(søge) felt. De kan søge, sortere og udvælge data ef¬ 
ter alle kriterier og på alle felter, efter Deres ønske. 
DATAMAT kan overføre data til TEXTOMAT således 
at disse bruges til f.eks. personlige serie-breve m.v. 
DATAMAT er extrem hurtig da den er skrevet i 
100% maskinkode. - QO 

49o.- 


C 


Med BUDGET-MANAGER behøver De ikke længere 
tænke Då forvaltningen af Deres husholdningskasse. 
BUDGET MANAGER kontrollerer alle udgifter og 
indtægter, kredit og opsparingskonti på øre. Alle da¬ 
ta kan læses på skærm eller udskrives på printer. 

Da BUDGET MANAGER arbejder terminsorienteret 
kan alle data udskrives til forfaldsdato. Naturligvis rå¬ 
der BUDGET MANAGER over mange nyttige kalen¬ 
derfunktioner, som hjælper Dem i overvågningen af 
de vigtige terminer. 

Envidere er der funktioner til beregning af lånetilbud 
og renteberegning. 

498 ,- 


I løbet af 1986 kommer der hele 8 bøger på dansk til 
664/6128 bla. FØRSTEBOGEN, TIPS OG TRICKS, 
INTERN, PEEKS OG POKES, FLOPPYBOGEN og fle¬ 
re er på vej. Se dem hos din forhandler !!! 


Distribution i Norge 


NORDIC COMPUTER SOFTWARE 
POSTBOX 105 • DK 6950 RINGKØBING 


EQUIPMENTais 

Gyldenløves gt. 42. N-4600 Kristiansand S„ Tlf. (042)70294 


BUSY PACK 


Markedets mest gennemprøvede administrative løsning til Amstrad 

(finansbogholderi, debitorbogholderi, kreditorbogholderi, laqerstyrinq 
fakturering.) ^ 


Jogc_e total system 
incl. moms 






Amstrad 6129 

2995 ,- 

incl. moms 






